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SUMMARY 


A combined  Monte  Carlo-direct  covariance  algorithm  digital  computer 
software  package  has  been  developed  and  tested  for  determining  the 
effects  of  noise  disturbances  on  large-scale  missile  systems.  The 
combined  software  package  was  applied  to  a thirty- third  order  math 
model  of  a six  degree-of- freedom  air  defense  missile  system.  The 
large-scale  system  was  composed  of  a fifteenth-order  (15th)  autopilot, 
a fourth-order  (4th)  actuator  subsystem,  a twelfth-order  (12th) 
airframe,  and  a second-order  (2nd)  seeker.  This  final  report  documents 
the  results  of  a two-year  development  effort  under  Contract  DAAH01-72- 
C-0672,  which  was  initiated  on  April  1 , 1972. 

A basic  statistical  covariance  program  involving  incremental 
variations  about  noise-free  operating  conditions  was  developed  during 
the  first  year  to  calculate  the  effects  of  noise  propagation  for  missile 
systems  up  to  approximately  25th  order.  Specific  tasks  during 
that  period  included  the  development  and  testing  of  the  basic 
program,  establishing  accuracy  levels  on  a typical  missile  system, 
establishing  tradeoff  possibilities  for  improved  program  operation, 
and  developing  and  testing  automatic  programs  to  be  used  with  existing 
digital  or  hybrid  simulations.  The  basic  program  was  expanded  for 
higher-order  systems  up  to  approximately  50th  order  during  the 
second  year.  Specific  tasks  included  expanding  the  basic  program, 
simplifying  the  program  via  approximations,  developing  sequential 


operations,  and  establishing  final  guidelines.  All  eight  of  these 
contract  objectives  and  the  associated  four  milestones  were  met 
on  schedule. 

The  expanded  program  is  described  in  Chapters  III  and  IV  of 
this  final  report  with  numerical  results  for  a thirty- third  order 
missile  system  i».  Chapter  V.  In  particular,  Table  IV  of  Chapter  IV 
indicates  that  nine  new  subroutines  were  added  to  the  existing  digital 
computer  program,  major  changes  were  made  in  three  other  subroutines, 
and  seven  of  the  remaining  seventeen  subroutines  required  only  minor 
changes.  Several  innovaf  ns,  including  an  adaptive  feature  for 
the  calculation  of  certain  coefficient  matrix  elements,  were  incorporated 
into  the  program  development.  These  have  been  documented  in  this 
final  report. 

Accuracy  levels  were  established  for  the  direct  covariance  algorithm 
by  comparing  with  25  Monte  Carlo  simulation  runs  for  the  large-scale 
missile  system.  Figure  13  indicates  that  excellent  results  were 
obtained  for  several  orders  of  missile  systems  by  using  the  direct 
covariance  algorithm.  It  was  also  shown  that  the  thirty- third  order 
system  exhibited  harsh  nonlinear  characteristics  during  the  launch 
and  terminal  modes  of  a typical  flight.  Therefore,  the  Monte  Carlo 
technique  was  utilized  during  these  modes  of  operation,  and  the 
direct  covariance  algorithm  was  used  during  the  large  mid-portion  of 
the  flight.  This  combined  software  package  is  included  in  Appendix  C. 

Tradeoff  possibilities  with  respect  to  accuracy,  computational 
speed,  computing  equipment  requirements  (including  storage),  and 
program  complexity  were  examined.  It  was  shown  that  the  RK2  integration 
formula  represented  an  efficient  tradeoff  between  speed  and  accuracy 
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for  covariance  matrix  calculations.  Simplifying  approximations 


were  developed  to  speed  up  the  operation  of  the  combined  software 


package.  Constant  coefficients  were  used  to  replace  slowly-varying 


elements  of  the  A(t)  coefficient  matrix.  It  was  shown  that  during 


the  large  mid-portion  of  the  flight,  where  the  direct  covariance 


algorithm  was  applicable,  an  important  approximation  involved  the 


propagation  of  noise  through  the  seeker  relay  nonlinearities.  Output 


variance  calculations  for  these  relays  were  achieved  from  Subroutines 


SNOISE  and  DETARA  by  using  the  resulting  output  joint  probability 


density  function  directly.  The  harsh  nonlinearties  encountered  during 


launch  and  terminal  modes  could  not  be  handled  by  this  simplified 


approach.  Therefore,  Monte  Carlo  runs  were  needed  for  these  portions 


of  the  flight  to  supplement  direct  covariance  calculations. 

An  increased  accuracy  and  a significant  savings  in  computational 


time  are  realized  for  those  applications  where  the  direct  covariance 
algorithm  may  be  used  over  a large  portion  of  the  flight.  It  is  shown 
in  Chapter  V that  input  noise  levels  determine  the  region  in  which  the 
direct  covariance  algorithm  is  applicable.  For  the  thirty- third  order 
system  described  in  Chapter  III  with  the  given  noise  levels,  the  combined 
program  operated  at  approximately  twice  the  speed  of  25  Monte  Carlo 
simulations  with  comparable  accuracy.  Moreover,  the  combined  program 
operated  at  approximately  six  times  the  speed  of  200  Monte  Carlo  simu- 
lations and  over  thirty  times  the  speed  of  1000  Monte  Carlo  simulations. 
Based  on  both  accuracy  and  computational  speed,  this  combined  digital 
computer  software  package  provides  improved  capabilities  for  handling 
noise  propagation  in  large-scale  missile  system  applications. 
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CHAPTER  I 


INTRODUCTION 
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h 
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Computer  software  packages  have  proven  to  be  very  useful  for  the 
application  of  sophisticated  analysis  and  design  algorithms  for  in- 
dustrial problems.  Their  usefulness  in  providing  powerful  results  in  an 
easily  applied  form  for  the  user  has  led  to  the  development  of  efficient 
software  packages  for  large-scale  systems.  One  problem  area  in  which 
software  packages  are  becoming  more  popular  involves  those  systems 
having  inherent  noise  problems  resulting  from  random  variations  in 
disturbance  inputs  and/or  system  parameters.  These  random  variations 
result  in  errors  being  propagated  throughout  the  large-scale  systems. 

A thorough  knowledge  of  the  large-scale  system  dynamics,  statistical 
properties  of  dynamical  systems,  and  some  simulation  experience  are 
necessary  for  the  development  of  computer  software  packages  for  these 
applications.  This  final  report  describes  the  development  and  testing 
of  a digital  computer  software  package  for  determining  the  propagation 
of  errors  due  to  noise  in  large-scale  missile  systems. 


Background 

Previous  work  on  noise  propagation  problems  has  focused  on  the  use 
of  the  Monte  Carlo  technique  in  which  large  numbers  of  runs  are  en- 
semble-averaged to  obtain  statistical  results.  Primary  considerations 
in  the  use  of  this  traditional  approach  are  the  generation  of 


prespecified  statistical  inputs  and  the  simulation  of  dynamical  sys- 
tems. A more  modern  approach  based  on  computing  the  state  covariance 
matrix  directly  has  become  popular  in  recent  years.  This  new  approach 
referred  to  as  the  direct  covariance  algorittai,  has  been  applied  for 
an  approximate  analysis  of  large-scale  nonlinear  systems.  The  develop 
ment  of  a computer  software  package  using  the  direct  covariance 
algorithm  would  yreatly  enhance  large-scale  system  analysis  capabili- 
ties. 

The  Monte  Carlo  method  uses  repeated  sample  functions  as  inputs 
to  the  model  of  a mathematical  or  physical  process.  Earlier  noise 
propagation  studies  by  the  Monte  Carlo  method  were  based  on  the  use  of 
analog  noise  generators.  Due  to  the  fact  that  these  generators  were 
not  repetitive,  the  analog  approach  became  unpopular  after  the  recent 
development  of  digital  pseudo-random  number  generators.  These  genera- 
tors could  be  used  to  generate  the  same  numbers  as  many  times  as 
desired  and,  thus,  ease  the  work  of  debugging  the  simulated  program. 
Large  amounts  of  simulated  random  data  are  required  for  acceptable 
results.  For  the  digital  implementation  of  the  Monte  Carlo  technique, 
pseudo-random  numbers  are  either  drawn  from  tables  01  or  generated 

from  simple  relationships  within  the  computer.  For  the  former  case 

✓ 

the  random  numbers  must  be  stored  and  used  whenever  required.  How- 
ever, for  the  latter  case  Chambers  (2),  Hull  and  Dobell  (3),  MacLaren 
and  Marsaglia  (4),  and  Gelder  C5)  have  developed  mixed  congruential 
and  multiplicative  recurrence  formulas  for  generating  pseudo-random 
numbers.  The  numbers  generated  are  uniformly  distributed  on  the 
interval  (0,1).  The  uniformly  distributed  numbers  may  be  converted 
into  zero-mean,  unity-variance,  Gaussianly  distributed  random  numbers 
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| by  an  exact  closed-form  expression  developed  by  Box  and  Muller  (6).  An 

I alternate,  but  approximate,  method  of  converting  the  uniform  sequence 

i 

i 

| to  a Gaussian  sequence  utilizes  the  Central  Limit  theorem  which  states 

that  as  the  number  of  statistically  independent  variables  is  increased 
! without  limit,  a Gaussian  probability  distribution  is  approached  for 

the  sura,  regardless  of  the  probability  distributions  of  the  various 
variables. 

A direct  technique  (7-12)  has  resulted  from  the  error  covariance 
matrix  propagation  in  the  Kalman  filtering  equation  03,14).  Though 
exact  for  linear  time-varying  systems,  the  direct  covariance  algorithm 
has  also  been  applied  for  mildly  non-linear  systems.  For  example,  this 
technique  has  been  used  by  Kuhnel  and  Sage  (15)  for  sensitivity  equa- 
tions about  a nominal  flight  path  due  to  trajectory  initial  condition 
dispersions  and  random  system  variations.  They  used  a thirty-third 
order,  six  degree-of -freedom  homing  missile  model  to  illustrate  the 
application  to  a realistic  situation.  Kuhnel  and  Sage  used  only  the 
adjoint  method  whereas  Irwin  and  Hung  06}  applied  both  direct  and 
adjoint  methods  for  evaluating  the  state  covariance  algorithm  for 
large-scale,  nonlinear,  dynamical  systems.  An  interval -by-interval 
linearization  procedure  has  also  been  proposed  07,18).  For  nonlinear 
feedback  systems,  the  direct  covariance  approach  has  been  used  by 
Brown  09-21)  for  solving  trajectory  optimization  problems.  Using  a 
more  accurate  algorithm  about  a nominal  trajectory,  Clark  (22,  23)  has 
developed  related  results. 

Rowland  and  Holmes  (24)  have  shown  that  the  direct  covariance 
technique  is  more  accurate  and  faster  than  the  Monte  Carlo  approach. 
They  demonstrated  that  the  direct  covariance  algorithm  can  be  applied 
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to  mildly  nonlinear  systems  with  acceptable  results  by  using  linearized 
incremental  equations  about  the  noise-free  solution.  The  objective  of 
this  effort  was  to  develop  a computer  software  package  for  the  ef- 
ficient implementation  of  the  direct  covariance  algorithm. 

Derivation  of  the  Direct  Covariance  Algorithm 

Consider  the  linear,  time-varying,  dynamical  system  represented 
by  the  vector  differential  equation 

x(t)  = A(t)xjCt)  + B(t)w(t)  (1.1) 

where  x(t)  is  an  n-dimensional  state  vector,  A(t)  is  an  n by  n matrix, 
8(t)  is  an  n by  m matrix,  and  w(t)  is  an  m-dimensional  input  noise  vector. 
The  covariance  matrix  of  the  state  vector  (24,25)*  is  defined  as 

P(t)  = E{x(t)xT(t)}  (1.2) 

The  elements  of  the  input  noise  vector  are  zero-mean  white  noise  pro- 
cesses, and  their  covariance  matrix  is  represented  by 

E{w(t)wT(i)}  = Qw(t)  6(t-i)  (1.3) 

where  6(«)  is  the  impulse  function.  The  m by  m covariance  matrix 
Q (t)  may  be  time-varying  in  general. 

The  covariance  matrix  P(t)  may  be  determined  directly  in  terms 
of  A(t),  B(t),and  Q (t)  by  using  x^(t)  in  (1.2).  The  solution  of  the 
time-varying,  linear  differential  equation  given  by  (1.1)  is 

x(t)  = *(t,t0)  X(t0)  + <J.(t,x)  B(t)  w(t)dT  (1.4) 

Therefore,  the  covariance  matrix  of  xjt)  may  be  calculated  as 


• k 


Reprints  of  (25)  and  other  selected  papers  are  included  in  Appendix  A. 
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PCt)  = E{xCt)xTCt}} 

= El{*Ct,t.)  xCt-1  + {*  -Kt.x)  BCtI  wCxIdt} 

° - o tQ 

• {4>(t,t0)x(.t0l  + ^ $Ct,T)  BCt)  w(.t}cIt}T]  (1.5) 

o 

Since  ?L(t:0)  and  w(t)  are  uncorrelated  for  all  t>tQ> 

P(t)  = E[$(t,t0)  x(tQ)  {$(t,tQ)  x(tQ)}T  + 

tQ  tp  b(t-j)  w(t-|){<{'(t>T2)B(T2)w(T2)}TdT.jdT2] 

= *(t,t0)  E{x(t0;xT(t0)}  $T(t,t0) 

{t  £ *(t,T-|)  B(t-|  ) Efw(x^  )WT (Tg)  > BT(t2)  ^(t.TgJdtTdT^  (1,6) 

Using  (1.3)  and  the  sifting  property  of  the  delta  function,  (1.6) 
reduces  to 

PCt)  = *(t,t0)  P(t0)  *TU»t0)  + 

{*  BCTjJQjjCtj)  BT(t-|  ) ^(t.T^dl,  (1.7) 

The  integral  equation  in  (1.7)  may  be  expressed  more  conveniently  as  a 
matrix  differential  equation  for  P(t).  In  establishing  this  form,  the 
state  transition  matrix  $(t,tQ)  is  identified  as  the  solution  of  the 
homogeneous  linear  differential  equation 

*(t,t0)  = = A*(t,t0)  (1.8) 

with  the  boundary  condition  4>(tQ,to)  = I.  Using  the  relationship  in 
(1.8)  to  simplify  (1.7)  gives 
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P(t)  = kt,t0)  P(t0)  *TCt,t0)  + Ht,to}  p(t0]  *TCt,to) 

+ - -^iJ^^Cti)QwCt-1)  BTCt1)  4TCt,T1)di1 

0 — 

+ £ ♦&.,,)  *,)  BT(T,)  2^’dx, 

+ «(t,t)  B(t)  Qjt)  BT(t)  *T(t.t) 

P(t)  = A(t)  [*(t,t0)  P(tQ)  $T(t,tQ) 

+ ^(t.Tj)  B(t-j  ) Qw(t  -J  ) BT(t  1 ) +T(t,T1)dx1] 

+ DKt,to)  p(tQ)  4>T(tstQ) 

+ ^ 4>(t,T1)B(T^)Qw(T^)BT(x^)<i>T(t,T-j)dt-|]V(t) 

+ BCt)  Qw(t)  BT(t)  (1.9) 

where  4>(t,t)  has  been  replaced  by  the  Identity  matrix  I.  Therefore, 

P(t)  = A(t)  Pit)  + P(t)  AT(t)  + B(t)  Q (t)  BT( t)  (1.10) 

The  desired  result  in  (1.10)  yields  P(t)  by  solving  a set  of  linear 
differential  equations. 

Criteria  for  Comparison 

Since  the  most  efficient  technique  is  sought  for  the  study  of 
noise  propagation  in  large-scale  systems,  the  criteria  for  comparison 
between  the  Monte  Carlo  technique  and  the  direct  covariance  algorithm 
play  an  important  role  in  selecting  the  most  suitable  technique.  Some 
of  these  criteria  are  discussed  in  the  following  paragraphs. 
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Information  Provided 

The  primary  consideration  for  choosing  a simulation  technique  is 
greatly  influenced  by  the  information  provided  by  that  technique.  The 
Monte  Carlo  technique  provides  the  complete  probability  density  func- 
tion associated  with  random  phenomena,  whereas  the  direct  covariance 
technique  only  gives  the  variance  about  the  nominal  trajectory,  which 
serves  as  the  mean  value.  In  many  applications  of  Interest,  the 
mean  and  variance  of  selected  states  is  all  the  Information  that  Is 
required  for  an  acceptable  analysis  of  system  behavior. 

Accuracy 

The  next  criterion  for  comparison  Is  the  accuracy  level  pro- 
vided, which  varies  with  different  techniques.  The  direct  covariance 
algorithm  gives  exact  results  for  linear  systems  and  may  be  applied 
to  yield  acceptable  results  for  mildly  nonlinear  systems.  On  the 
other  hand,  the  results  of  25  to  50  Monte  Carlo  runs  may  not  provide 
acceptable  accuracy,  although  a high  accuracy  may  be  expected  with 
1000  Monte  Carlo  runs  (24,25).  The  step  size  chosen  for  integration  may 
be  used  as  a control  for  the  tradeoff  between  accuracy  and  compu- 
tational time. 

Computer  Storage 

The  computer  software  package  efficiency  may  also  be  judged  by 
the  computer  storage  needed  for  the  anpli cation  of  various  techniques- 
The  direct  covariance  algorithm  requires  somewhat  more  storage  as 
compared  to  the  Monte  Carlo  technique.  The  amount  of  additional 
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storage  depends  upon  the  order  of  the  system  being  considered  as  shown 
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in  later  chapters. 
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Computational  Time 

Another  objective  of  an  efficient  computer  software  package  is  to 
obtain  a computationally  fast  algorithm.  The  speed  and  accuracy  may 
be  examined  with  respect  to  tradeoff  possibilities.  For  extremely 
accurate  results,  the  computational  time  needed  may  be  quite  large. 

By  the  use  of  large  integration  step  sizes,  the  computational  speed 
may  be  increased.  There  are  many  approximate  techniques  which  may  be 
used  to  reduce  the  computation  time.  For  example,  slowly  time-varying 
coefficients  may  be  replaced  by  constant  coefficients  and  very  small 
variables  and  coefficients  may  be  replaced  by  zero.  Moreoyer,  if 
the  order  of  the  system  can  be  reduced,  a considerable  savings  in  com- 
puter time  might  be  realized. 

Program  Compl dxity 

The  computer  software  package  should  be  simple  so  that  anyone 
with  only  limited  simulation  experience  is  able  to  understand  it.  Due 
to  the  inverse  relation  of  the  complexity  and  computation  time,  the 
tradeoff  between  them  is  possible.  With  maximum  complexity  the  com- 
puter time  may  be  reduced  by  as  much  as  a factor  of  ten  in  certain 
applications. 

Possibilities  of  Extension 

The  general  computer  software  package  for  the  direct  covariance 
algorithm  is  a fundamental  step  in  the  subsequent  development  of  an 
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efficient  software  package  for  Kalman  filtering  as  a practical  esti- 
mation algorithm.  Furthermore,  many  approximate  nonlinear  filtering 
algorithms  are  based  on  similar  considerations. 


Outline 


Following  this  introductory  chapter,  the  direct  covariance  algo- 
rithm is  extended  in  Chapter  II  for  application  to  nonlinear  systems. 
In  addition,  several  Monte  Carlo  tests  are  performed  to  determine  a 
suitable  discretization  procedure  for  subsequent  use  in  validating 
the  results  of  the  digital  computer  software  package.  The  software 
package  development  and  its  application  to  a large-scale  missile  sys- 
tem are  described  in  Chapter  III.  A description  of  the  combined 
Monte  Carlo  - direct  covariance  algorithm  software  package  is  provided 
in  Chapter  IV.  Final  numerical  results  using  this  software  package 
are  presented  in  Chapter  V. 


CHAPTER  II 

DIRECT  COVARIANCE  ALGORITHM  EXTENSIONS 
AND  MONTE  CARLO  TESTING 

This  chapter  defines  the  general  mathematical  system  under  con- 
sideration and  extends  the  direct  covariance  algorithm  for  this  non- 
linear case.  Numerical  results  are  presented  for  a second-order 
nonlinear  system  to  demonstrate  the  applicability  of  the  algorithm. 
Thereafter,  the  problem  of  modeling  continuous  white  noise  inputs  on 
the  digital  computer  is  Investigated  from  a more  general  viewpoint 
than  considered  previously.  Three  modeling  representations  are  pre- 
sented and  then  compared  on  a second-order  system.  The  best  of  these 
discretization  procedures  Is  used  in  subsequent  chapters  to  compare  the 
Monte  Carlo  technique  with  the  direct  covariance  algorithm  on  a 
thirty- third  order  math  model  of  a six  degree-of-freedom  air  defense 
missile  system. 

Mathematical  Formulation 

Consider  the  nonlinear,  time-varying,  dynamical  system  represented 
by  the  vector  differential  equation 

x = f(x,  w,  t)  (2.1) 

where  x is  the  n-dimensional  vector  of  system  variables,  w is  an  m- 
dimensional  input  noise  vector,  and  t is  the  independent  variable 
representing  time. 
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The  input  noise  vector  w(t)  has  a mean  value  specified  by  the  ra- 
dimensional  vector  n^Ct)  and  a covariance  matrix  Qw(t)»  which  is  m by 
m in  dimension.  These  quantities  may  be  defined  mathematically  as 

Elw(t)l  = i^Ct) 

EtlwCt)  - ^(t)]  IwIt)  - ryWf)  6 yt)  sCt-x)  (2.2) 

where  fi(* ) is  the  impulse  function. 

The  covariance  matrix  of  the  state  x(t)  is  defined  as 

P(t)  - E{£xCt)  - n/t)]  [x(t)  - yx)]T}  (2.3) 

where  x)  (t)  is  the  mean  of  x(t).  The  problem  is  to  determine  P(t)  in 
.X 

terms  of  the  mathematical  description  of  the  nonlinear  system  in  (2.1) 
and  the  properties  of  the  input  noise  vector  given  in  (2.2). 

An  Approximate  Covariance  Analysis 
of  Nonlinear  Systems 


The  application  of  the  direct  covariance  algorithm  developed  In 
Chapter  I to  the  ronlinear  system  in  (2.1)  can  be  achieved  as  an  ap- 
proximate analysis.  Let  x^Ct)  denote  the  noise-free  nominal  trajectory 
obtained  by  replacing  w(t)  by  nw(t)  in  (2.1).  It  is  assumed  that  the 
input  noise  disturbances  cause  sufficiently  small  deviations  about 
this  nominal  solution  such  that  nx(t)  = ^ese  sma^  devia- 

tions 6x(t)  be  defined  by 

6x(t)  = x(t)  - Xfl(t)  (2.4) 

Expanding  (2.1)  in  a Taylor's  series  about  x^(t)  yields 


§x(t)  3 A(t)  &x.(t)  + S(t)V((t) 
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where 


A(t) 


3f 


X(t)  = X^(t) 
W(t)  = nw(t) 


B(t) 


6 * 
aw 


x(t)  = x^(t) 
w(t)  = nw(t) 


(2.6) 


The  approximation  made  in  (2.5)  is  that  the  second  and  ell  higher-order 

terms  in  6x  are  negligible  when  compared  to  the  linear  terms.  This 

approximation  is  valid  if  the  6x  variations  are  sufficiently  small. 

To  demonstrate  the  importance  of  this  approximation,  consider  the 

second-order  nonlinear  system  investigated  in  (24,25),  The  system  is 

described  by 

4 2 

X.]  = -2x1  + x2  + y*2  S19n  (x2) 

x2  = -x2  + w(t)  (2.7) 

where  w(t)  is  a zero-mean  Gaussian  white  noise  process  applied  for 
all  t ^0.  Figure  1 shows  the  results  from  (24,25)  by  applying 
the  direct  covariance  algorithm  as  the  input  covariance  Qw  was  in- 
creased from  0.01  to  5.  As  was  increased,  the  higher-order  6x 

IT 

variations  in  (2.5)  became  significant  and  larger  errors  were  obtained. 
Therefore,  the  arbitrary  application  of  the  direct  covariance  algo- 
rithm to  nonlinear  systems  with  severe  nonlinearities  and/or  ex- 
tremely high  input  noise  levels  must  be  approached  with  some  caution. 
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AVERAGE  PERCENT  ERROR  IN  OUTPUT  VARIANCE 


14 


Monte  Carlo  Testing 


To  validate  the  accuracy  of  the  computer  software  package  for  the 
direct  covariance  algorithm,  comparisons  were  made  with  the  Monte 
Carlo  technique.  As  a preliminary  step,  the  discretization  procedures 
for  white  noise  inputs  were  investigated  to  determine  whether  improved 
Monte  Carlo  results  could  be  obtained.  Previous  methods  were  based 
on  the  generation  of  pseudo-random  numbers  which  were  then  held  con- 
stant over  the  discretization  interval.  The  relationships  between  the 

covariance  matrix  Q1(  of  discrete  random  sequences  and  Q defined  in 
«d  JL 

(2,2)  is  given  by 


VT 


(2.8) 


where  T is  the  discretization  Interval.  An  extensive  study  was  per- 
formed by  Rowland  and  Holmes  (24)  on  the  above  method,  and  some  of 
those  results  are  used  here  to  evaluate  new  methods  for  the  discrete 
representation  of  continuous  white  noise  processes. 

A new  functional  approach  to  the  discretization  problem  has  been 
developed  in  this  work,  and  results  are  compared  with  the  previous 
method  In  the  next  section.  Suppose  several  zero-mean  random  numbers 
6^  are  combined  on  each  discretization  interval  to  form  a power 
series  function  of  time  as 


wd(8o’8l’82,,,,,8K’t)  = k^o  V 


for  0 < t < T 


(2.9) 


The  autocorrelation  function  of  such  a train  of  pulses  is  given  in 


f e Q t^k  (1  - W for  1-rhT 
(t,t+x)  =/ k=0  8k  1 


0 


Otherwise 


(2.10) 
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where  Q0  is  the  variance  of  8,,.  The  associated  power  spectral 
ak  K 

density  is 

Vd(“,=  4™’:tlr  -iTVd(t'ttTldt3dT 


20  - cos  ti>T)  * 


^ ^6  C'  pid+l  1 

k=0  6k  ^K+ 


(2.11) 


Note  that  the  expression  in  (2.11)  takes  advantage  of  the  periodicity 
of  (2.10)  and  is  valid  even  though  the  discrete  representation  of  the 
given  continuous  random  process  is  nonstationary. 

For  the  continuous  white  noise  case,  the  autocorrelation  function 


in  given  by  the  impulse  function 


Qw«Ct) 


(2.12) 


and  the  power  spectral  density  is  determined  as 


S (oj) 
wwv 


i Qw«(t)e'J“TdT  = Qw 


Equating  (2.11)  and  (2.13)  yields 

K ,2k-l  ,2  t4  2 t6  4 

°w  = 2 k=0  \ [_7  ’ "^T  + -720  " 


(2.13) 


(2.14) 


from  which,  by  setting  w = 0,  one  may  form  the  approximate  relationship 


K ,2k+l 

t Qo  (“tt+t) 
k=0  8k  2k+1 


(2.15) 


Ibis  is  one  of  the  new  relationships  developed  to  possibly  yield  a 
more  accurate  discrete  representation  of  continuous  white  noise  pro- 
cesses. Figure  2 shows  the  representation  of  the  continuous  and 
discrete  white  noise  processes,  including  sample  functions,  autocor- 


relation functions,  and  the  power  spectral  densities. 
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Another  method  was  developed  towards  the  improvement  of  the 
discrete  representation  of  continuous  white  noise  processes.  Con- 
sider the  random  process  yCt]  given  by 


y(t)  = A cos  (at  + e)  (2.16) 

o 

where  A is  a Gaussian  random  variable  with  variance  and  a mean  of 
zero,  a is  a constant,  and  0 is  uniformly  distributed  on  the  range 
(0,  2,).  A and  0 are  assumed  to  be  independent.  It  can  easily  be 
shown  that  2 

Ryy(t)  =/4  0 “4^  cosM  for  M<T  (2.17) 

0 Otherwise 

Suppose  a discrete  random  sequence  wd(t)  is  generated  by  applying 

(2.16)  on  an  interval ^y-interval  basis.  This  sequence  may  be  used 
to  approximate  a given  continuous  white  noise  process  as  before  by 
setting 

a2 

Qw  - * 4T  -tj*  cos  (ax)  ♦ [1  v-  -^]dr 

. ol  [1  - COS  C°.T) j (2.18) 

To2 

This  Is  the  relationship  developed  for  determining  the  variance  of  the 
discrete  model.  The  simulation  results  of  this  method  and  the  method 
developed  earlier  in  the  section  are  compared  with  the  numerical  re- 
sults obtained  earlier  in  (24).  The  method  in  (2.8)  is  referred  to 
as  the  standard  method,  and  the  method  developed  in  (2.9)-(2.15) 
is  called  the  slope  method.  Furthermore,  the  alternate  method  in 

(2.16) -(2.18)  is  referred  to  as. the  cosine  method. 
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Numerical  Results 


Consider  the  second-order,  linear,  time-inyariant  system  de- 
scribed by 


X1  = x2 


= -2x-j  - 3x2  + w(t) 


(2.19) 


Recursive  relationships  used  to  generate  the  random  input  se- 
quence w.  for  the  above  second-order  system  have  the  form 


i+1 


GY, 


(Modulo  M) 


(2.20) 


Brown  and  Rowland  (28)  obtained  satisfactory  statistical  properties 


20 


from  the  pseudo-random  number  generator  with  G = 19971,  M = 2 , and 


YQ  = 31571.  The  generated  numbers  are  uniformly  distributed  on 


(0,1).  These  numbers  may  be  converted  into  a zero-mean,  unity - 
variance  Gaussian  distribution  by  the  exact  closed-form  relation  de- 
veloped by  Box  and  Muller  (6) 


2]  = (-2  logfi  Y^1''2  cos  2nY2 


Z2  = t-2  loge  Y^  )1/2  sin  2ttY2 


(2.21) 


v.'^ere  Y-|  and  Y2  are  uniformly  distributed,  and  and  Z2  are 
Gaussianly  distributed  random  variables. 


Numerical  results  for  this  example  are  shown  in  Figure  3 with 


2\ 


the  average  per  cent  error  on  the  output  variance  (ov  ) versus  the 

X1 


number  of  Monte  Carlo  runs  for  the  three  methods  being  compared. 
Using  a step  size  T of  0.05,  the  standard  method  utilized  pseudo- 


random numbers  with  a variance  Qw  of  Q^T  equal  to  20.  The  case 


of  K = 1 was  used  for  the  slope  method  with  the  random  variables 


u&xi. 


Percent 


20 


fsQ  and  £.|  being  given  equal  weight.  Several  other  cases  (K  = 2,3,  and 

4)  with  several  alternate  weighting  methods  for  the  e's  were  also 

simulated,  but  no  significant  improvement  was  obtained.  The  results 

2 

of  the  cosine  method  shown  in  Figure  3 used  = 6.44,  a = 4u,  and 

2 

T = 0.05.  Different  combinations  of  a and  oA  were  also  used  in 
other  runs  without  improvement.  Moreover,  the  use  of  Z-|  ana  from 
(2.21)  in  consecutive  intervals  as  opposed  to  using  only  Z-j , as  shown 
in  Figure  3,  failed  to  yield  any  improvement.  Finally,  using  alter- 
nate values  of  Z-j  and/or  Z ^ did  not  improve  the  results  shown. 
Therefore,  the  standard  method  was  the  best  of  those  tested  in  terms 
of  accuracy.  In  addition,  the  standard  method  requires  only  a single 
pseudo-random  number  per  interval,  which  results  in  a particularly 
simple  implementation  as  shown  in  Appendix  B. 

Summary 

The  direct  covariance  algorithm  was  extended  in  this  chapter  for 
application  to  linearized  variational  equations  about  the  noise-free 
solution  for  nonlinear  systems.  Numerical  results  showed  that  the 
algorithm  is  applicable  to  those  nonlinear  systems  with  low  input  noise 
levels  and  mild  nonlinearities.  A generalization  (29)  was  proposed  for 
improving  the  discretization  procedure  for  simulating  continuous 
white  noise  processes  on  the  digital  computer.  Extensive  Monte  Carlo 
testing  on  a second-order  system  indicated  that  the  standard  method 
developed  earlier  was  both  superior  in  accuracy  and  the  most  ef- 
ficient for  implementation  purposes.  This  efficient  discretization 
procedure  forms  the  basis  for  the  subsequent  Monte  Carlo  validation 
of  the  computer  software  package  developed  in  Chapter  III. 


CHAPTER  III 


IMPLEMENTATION  OF  THE  DIRECT  COVARIANCE  ALGORITHM 
FOR  LARGE-SCALE  SYSTEMS 

This  chapter  deals  with  the  large-scale  implementation  of  the 
direct  covariance  algorithm  derived  in  the  Chapter  I and  extended  in 
Chapter  II.  A method  for  obtaining  the  exact  solution  for  large- 
scale  linear  systems  is  presented,  and  the  problems  in  implementing 
this  solution  for  large-scale  nonlinear  systems  are  identified.  The 
basic  computer  software  package  is  developed  with  a particular 
emphasis  on  its  application  to  large-scale  missile  systems  and  is  applied 
to  a thirty- third  order  math  model  of  a six  degree-of-freedom'air 
defense  missile  system.  Special  problems  encountered  in  the  propagation 
of  noise  through  the  seeker  subprogram  of  the  missile  are  described  in 
detail. 


Exact  Solutions  for  Large- 
Scale  Linear  Systems 

The  direct  covariance  algorithm  derived  in  Chapter  I is  repeated 
here  for  convenience  as 

P(t)  = A(t)P(t)  + P(t)AT(t)  + B(t)Qw(t)BT(t)  (1.10) 


In  component  form,  0-10)  becomes 


P11  ’ * *pln \ air**aln\  Ipir,,pln\  p11’*,pln\  an**'anl' 

# 4»  _ • • • • , • • » • 

• # **  » • • • • » • * % 

• • • ••••»•• 

• 9 

pnl“*pnn  anV,,ann  \pln**-pnn  \pln***pnn  \aln***ann 


bir**bln\  jqir*‘qlin\  lblT**bnl\ 


• » 1 I • • 


(3.1 ) 


bn1'*,bnra  Wil***™  lblra,,,br 


Since  P(t)  is  a symmetric  matrix,  i.e.  p.^  = p^.,  the  number  of  com- 
ponent differential  equations  in  (3.1)  is  n(n+l)/2,  where  n is  the 
system  order. 

Equation  (3.1)  can  be  solved  exactly  for  constant  A and  B 
matrices.  Rewriting  (3.1)  in  the  vector  form  yields 


where 


£(t)  = A"  p(t)  + _r 
Pn(t) 

£Ct)  = p12(t) 


(3.2) 


M‘>| 

and  A"  and  r^are  functions  of  the  components  of  A,  B,  and,Q  in  (3.1). 

' n 

T-V 

The  solution  of  the  linear  vector  differential  equation  in  (3.2)  may 


be  written  as 


£(t)  = eA'(t"to)£(t0)  + £ eA'(t‘T'r  dx  (3.3) 
A 'ft-t  ) 

where  e "V  is  the  state  transition  matrix  associated  with  jj(t)  in 
(3.2).  This  matrix  exponential,  sometimes  denoted  by  <f(t-t0),  may  be 
evaluated  as 


.A'(t-t0)  = r + a'  (_t-t0)  + %A'2Ct-t0!2  + ... 


(3.4) 


I 
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Example 


Equation  (2.19)  may  be  expressed  in  vector-matrix  form  by  identi- 


fying 


0 1 1 
-2  -3 


■ «-  • Qw  = (1) 


Therefore,  C3.1)  becomes 


hi  p12  = 0 1 P11  p12 

Pi  2 P22  ~2  P12  p22 


0)  (0  1) 


lpn  pi2l  P ~2 


’12  P22j  l1  *3 


Corresponding  to  (3.2),  (3.5)  may  be  written  as 

P-j-j  0 2 0 p^  0 

Pi  2 ~ -2  -3  1 Pi  2 + 0 

p22  0 -4  -6  P22  1 

Using  (3.3),  the  solution  to  (3.6)  for  P(0)  = 0 is 


' 1 1 Q~2t  , 2 -3t  1 -4t\ 

12'2e  +3e  "4e 

n(  + \ - 1 n’2t  Q"3t  4.  1 0“4t 

Pit)  2 e _e  +?e 

i.  - e 2t  + | e 3t  - e 4t  / 


(3.5) 


(3.6) 


(3.7) 


Note  that  eA  ^t“to^  has  n2(n+l)2/4  elements  for  an  nth  order  sys- 
tem, which  expands  the  computer  storage  requirements  considerably 
beyond  that  required  by  using  the  matrix  equation  in  (1.10)  to  solve 
for  P(t)  by  numerical  integration.  For  example,  if  n = 33,  then  P(t) 
may  be  obtained  from  (1.10)  by  solving  561  equations,  whereas 


gA  (t-tQ)  reqUire  in  excess  of  one-quarter  of  a million  state 
transition  matrix  element  evaluations.  Moreover,  if  A and  B are  not 
constant  in  time,  then  the  determination  of  the  exact  solution  of 
P(t)  in  (3.2)  is  generally  not  possible.  Since  some  components  of 
A(t)  and  B(t)  are  always  functions  of  time  for  nonlinear  systems,  the 
use  of  a suitable  numerical  integration  formula,  such  as  the  fourth- 
order  Runge-Kutta  algorithm,  is  recommended  for  determining  P(t) 
from  (1.10)  in  general  nonlinear  cases. 

The  Basic  Software  Package 

The  considerations  that  were  made  during  the  development  of  the 
software  package  included  obtaining  accurate  results  while  using  a 
minimum  amount  of  computer  time,  satisfying  equipment  requirements, 
such  as  computer  storage,  and  determining  the  range  of  applicability 
for  the  direct  algorithm  on  nonlinear  systems. 

The  covariance  matrix  equation  (1.10)  was  integrated  along  the 
nominal  trajectory  by  using  an  integration  step  size  for  the  covariance 
equations  initially  as  half  that  of  the  system  equations.  The  coef- 
ficient matrix  A(t)  for  the  system  equations  is  a sparse  matrix  in  many 
applications.  For  any  large-scale  system  the  coefficient  matrix 
elements  may  be  categorized  as  either  zero,  non-zero  constants,  non- 
linear functions  of  the  nominal  states,  or  implicitly  related  to  the 
nominal  states.  For  example,  the  thirty-third  order  missile  system 
considered  here  had  920  zero  coefficient  matrix  elements,  which  were 
neglected  during  program  computations.  In  addition,  constant  elements 
were  defined  in  the  beginning  of  the  program  and  left  unchanged 
thereafter.  The  coefficient  matrix  was  computed  at  each  integration 
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interval  along  with  the  nominal  solution  to  yield  a considerable 
savings  in  computer  storage  over  the  method  of  storing  the  A(t)  matrix 
for  all  time  t.  Thus,  each  nonlinear  element  of  A( t)  was  updated 
during  each  interval.  Finally,  those  coefficient  matrix  elements  which 
are  related  to  certain  state  variables  only  implicitly,  i.e.  the 
functional  relationship  is  available  only  via  complicated  computer 
programmed  statements,  were  computed  numerically  at  each  interval. 
Additional  details  will  be  provided  following  the  description  of  the 
large-scale  application  in  the  next  section. 

The  application  of  the  direct  covariance  algorithm  to  the  thirty- 
third  order  nonlinear  missile  system  yielded  only  approximate  results 
because  the  accuracy  of  the  direct  covariance  algorithm  for  nonlinear 
systems  depends  entirely  upon  the  relative  accuracy  of  the  linearizing 
approximation  for  incremental  variations  about  the  noise-free  solution. 
The  error  in  the  direct  covariance  results  increases  as  the  nonlinear 
terms  in  the  exact  incremental  equation  become  more  significant.  The 
time-varying  coefficient  matrix  prohibits  the  use  of  the  state  transi- 
tion matrix  equations.  Thus,  an  accurate  numerical  integration  tech- 
nique was  needed  to  integrate  the  n(n+l}/2  equations  for  the  symmetri- 
cal covariance  matrix. 

The  basic  approach  in  the  development  of  the  software  package  is 
shown  in  Figure  4 in  the  form  of  a flow  chart.  The  Fortran  listing 
of  this  computer  software  package  applied  to  a thirty- third  order  math 
model  of  a six  degree-of-freedom  air  defense  missile  system  is  given 
in  Appendix  C. 
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Description  of  the  Missile  System  Application 

The  large-scale  system  investigated  here  is  a thirty-third  order 
math  model  of  a six  degree-of-freedom  air  defense  missile  system.  The 
autopilot  subprogram  is  fifteenth-order,  the  airframe  subprogram  which 
includes  the  missile  rotational  variables,  the  translational  equations 
of  motion,  and  launcher  dynamics  is  twelfth-order,  the  seeker  is  second- 
order,  and  the  actuator  subprogram  is  fourth-order.  The  block  diagram 
for  the  thirty-third  order  missile  system  is  shown  in  Figure  5 with 
details  of  the  autopilot  and  actuator  in  Figure  6.  The  target  routine 
shown  in  the  figure  calculates  the  target-to-missile  relative  position 
and  speed  and  generates  line-of-sight  signals. 

Table  I identifies  all  states  of  the  missile  system  and  assigns 
a specific  number  to  each  state.  For  example,  the  missile  altitude  Z 
is  defined  as  the  twenty-first  state  and  occurs  in  the  airframe 
subprogram.  Table  II  provides  the  complete  categorization  of  all 
elements  of  A(t)  as  either  zero,  indicated  by  blank  entries,  constant 
values  (C), nonlinear  functions  of  the  nominal  trajectory  (NL),  or 
numerically  computed  (NC).  The  number  and  per  cent  contained  in  each 
category  are  summarized  In  Table  III. 

v imputations  for  Implicitly  Related  Elements 

Only  those  elements  of  the  A(t)  coefficient  matrix  which  are 
implicitly  related  to  certain  variables  are  computed  numerically.  For 
the  thirty- third  order  math  model  of  the  six  degree-of-freedom  air 
defense  missile  system,  the  numerically  computed  elements  are  denoted 
in  Table  III  by  NC.  The  state  identification  of  these  state  variables 


tSSSii&Jsi,  t -V-’**  i ifcai&a 


-*>“ywv\' 


DEFINITION  OF  THE  MISSILE  SYSTEM  ST«TE  VARIABLES 


Subprogram 

Description  of 
State  Variables 

State  Iden- 
tification 
Name 

State  Iden- 
tification 

I.  Autopilot 

Guidance  Pitch 

ZP1 

1 

Filter 

ZPP. 

2 

ZP3 

3 

Guidance  Yaw 

ZY1 

4 

Filter 

ZY2 

5 

ZY3 

6 

Roll  Compensa- 

ZR1 

7 

tion 

ZR2 

8 . 

BPHIS 

9 

Pitch  Integra- 

ZPI1 

10 

tor 

ZPI2 

11 

EODCR 

12 

Yaw  Integra- 

ZYI1 

13 

tor 

ZYI2 

14 

EVNCR 

15 

II.  Airframe 

State  Variables 

UE 

16 

for  Evaluating 

VE 

17 

the  Transla- 

WE 

18 

tional  Equa- 

X 

19 

tions  of  Missile 

Y 

20 

Motion. 

Z 

21 

Missile  Rota- 

PB 

22 

tional  Variables 

QB 

23 

RB 

24 

Euler  Angles 

THETA 

25 

PHI 

26 

PS  I 

27 

III.  Actuator 

Vane  Module 

W(l) 

28 

Variables 

VV(2) 

29 

VV(3) 

30 

VV  (4) 

31 

IV.  Seeker 

Internal  States 

VS(1) 

32 

VS(2) 

33 
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TABLE  II 


COEFFICIENT  MATRIX  FOR  THE  MISSILE  SYSTEM 
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TABLE  III 

CATEGORIZATION  OF  COEFFICIENT  MATRIX  ELEMENTS 


Categorization 

Number 

Percentage 

Zero 

Elements 

920 

84.5% 

Constant 

Elements 

52 

4.8% 

Nonlinear 

Elements 

38 

3.5% 

Implicitly 

Related 

Elements 

79 

7.2% 

Total 

1089 

100.0% 
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is  given  in  Table  I.  The  elements  labelled  NC*  in  Table  III  are  com- 
puted to  modify  the  derivatives  when  launcher  dynamics  of  the  missile 
system  are  in  effect  and  are  equated  to  zero  after  the  second  lug 
leaves  the  launcher.  Numerically,  the  partial  derivatives  for  A(t)  in 
(2.6)  are  given  by 

* Ax , n^>  t)  - f_(x^,  nw,  t) 

A(t)  = (3.8) 

AX 

where  the  notation  Ax^  represents  small  perturbations  about  the  nominal 
flight  path  x^(t).  These  perturbations  have  small  lower  limits  when 
P(t)  is  very  near  zero,  but  ax_  is  increased  by  adding  one-tenth  of  the 
standard  deviation  of  the  particular  state  under  consideration  when 
P(t)  is  set  near  zero.  Therefore,  the  numerica11.y  computed  elements 
of  A(t)  result  in  an  adaptive  feature  for  the  direct  covariance  algo- 
rithm. 

The  large  number  of  sequential  calculations  for  the  noise  propa- 
gation equations  results  in  numerical  problems  which  can  be  handled 
most  effectively  by  using  double-precision  throughout.  To  avoid  these 
time  consuming  operations,  the  elements  in  a particular  column  of 
P(t)  were  arbitrarily  set  to  zero  whenever  the  corresponding  diagonal 
element  was  below  10"^. 

Seeker  Noise  Considerations 

For  the  noise  propagation  studies,  the  noise  was  introduced  at 
four  places  in  the  missile  system.  The  first  two  places  are  shown  in 
Figure  6,  and  the  other  two  white  noise  inputs  were  added  to  the 
seeker  subprogram  of  the  missile  system.  These  latter  two  noise 
inputs  involved  perturbing  the  line-of-sight  signals  4»los  and 

e LOS (BEPSY ) generated  by  the  target  subprogram  as  shown  in  Figure  5. 
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These  noise  signals  were  passed  through  the  dead-zone  as  shown  in 


Figure  7.  Two  subprograms  which  were  developed  to  obtain  the  variance 


of  noise  after  passing  it  through  the  dead-zone  are  included  in 


Appendix  Cas  Subroutines  SNOISE  and  DETARA.  These  subprograms  utilize 


the  three  cases  depicted  in  Figure  8 in  which  the  nominal  values  of 


BEPSZ  or  BEPSY  lie  below  -TMP1,  between  -TMP1  and+TMPl,  or  above 


+TMP1.  The  density  functions  of  EZ  and  EY  are  each  composed  of  three 


impulses  at  SKSP  or  SKSY,  zero,  and  -SKSP  or  -SKSY.  The  weighting  on 


each  of  these  impulses  is  determined  by  the  area  of  the  Gaussian 


input  signals  lying  within  the  different  ranges  of  the  dead-zone 


nonlinearity  as  shown  in  Figures  7 and  8.  The  calculation  of  this  area 


is  performed  in  Subroutine  DETARA.  It  should  be  emphasized  that  the 


dead-zone  is  a very  harsh  nonlinearity,  which  can  result  in  a severe 


test  in  applying  the  direct  covariance  algorithm.  However,  the  seeker 


noise  was  injected  at  this  point  in  the  system  because  such  noise  dis- 


turbances do  occur  in  the  actual  missile  system. 


The  operation  of  Subroutines  SNOISE  and  DETARA  is  described  here 


to  demonstrate  how  to  handle  noise  propagation  across  a dead-band  relay 


element.  Card  16  defines  SIGBEP  in  terms  of  the  seeker  noise  input 


standard  deviation  (VNOISD),  SGTMP1 , and  VBEPS.  The  latter  two  terms 


are  standard  deviations  of  the  noises  due  to  the  random  effects  of  the 


position  coordinates  X,  Y,  and  Z and  the  seeker  state  variables, 
respectively.  Cards  10  through  15  yield  the  expression  for  SGTMP1 


in  terms  of  the  covariance  matrix  associated  with  the  X,  Y,  and  Z 


states.  It  has  been  assumed  that  these  states  are  Gaussianly  distributed 


and,  therefore,  that  their  fourth  central  moments  are  equal  to  three 


times  their  respective  variances.  Similarly,  the  contribution  of 
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Figure  8.  The  Effects  of  the  DeacWcne  Nonlinearity 
on  Seeker  Noise  Inputs 
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the  noisy  seeker  states  are  handled  by  using  the  same  procedure.  Cards 
17  and  27  identify  the  region  of  operation  of  the  seeker  relays. 

For  example,  if  the  relay  output  EC  equals  -SKSP,  then  the  relay  is 
switched  to  the  negative  region  as  shown  in  the  upper  diagram  of 
Figure  8.  The  distance  DIST  between  BEPS,  which  represents  the 
mean  of  either  BEPSZ  or  BEPSY  depending  on  which  of  the  two  seeker 
relay  nonlinearities  is  being  considered,  is  defined  in  Card  18  as 
DIST  = -TMP1  - BEPS.  Normalizing  this  Gaussian  density  curve  by 
dividing  by  the  standard  deviation  SIGBEP  to  give  POS,  one  may 
use  standardized  Gaussian  density  tables  to  determine  the  area  under 
the  curve  below  -TMP1 , the  area  between  -TMP1  and  +TMP1 , and  the 
area  above  +TMP1.  Specifically,  Card  20  yields  the  desired  area 
(ALI)  from  Subroutine  DETARA.  Note  that  the  total  probability  of 
BEPS  lying  below  -TMP1  is  one-half  plus  that  area  just  determined 
from  DETARA  (Card  21).  Card  22  defines  POS  for  the  curve  between 
the  actual  BEPS  and  +TMP1.  The  resulting  area  (A01)  is  the  sum  of 
ALI  determined  above  and  the  desired  dead-band  area  AO.  Therefore, 

AO  = A01  - ALI  as  given  by  Card  24.  Moreover  , since  the  sum  of  the 
total  area  under  the  curve  is  unity,  the  probability  that  BEPS  lies 
above  +TMP1  is  AU  = 1-AL  - AO  (Card  25).  Similarly,  the  probabilities 
associated  with  the  other  cases  shown  in  Figure  8 may  be  calculated. 
Finally,  Cards  45  through  47  compute  the  mean  of  EC  (SIGEC),  the 
second  moment  of  EC  (SGSEC),  and  the  variance  of  EC  (SGSQ). 

Summary 

The  general  framework  for  implementing  the  direct  covariance 
algorithm  for  large-scale  systems  has  been  described  in  this  chapter. 
Numerical  results  to  be  presented  later  have  indicated  that  the  two 
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1 


seeker  nonlinearities  are  of  major  importance  in  determining  nonlinear 

operating  characteristics  of  the  thirty-third  order  missile  system. 

2 

In  particular,  for  seeker  input  noise  variances  of  {2  degrees)  , the 
direct  covariance  algorithm  is  applicable  to  a large  range  of  operations 
during  the  mid-portion  of  a typical  flight.  Chapter  IV  describes 
the  details  of  a digital  computer  software  package  which  combines 
Monte  Carlo  runs  for  the  first  and  last  parts  of  the  flight  with 
direct  covariance  algorithm  results  for  the  mid-portion  of  the  flight. 
Numerical  results  from  this  combined  program  are  then  presented  in 


CHAPTER  IV 


COMBINED  MONTE  CARLO  - DIRECT  COVARIANCE 
ALGORITHM  SOFTWARE  PACKAGE  DESCRIPTION 

The  digital  computer  software  package  is  described  in  this  chapter 
initially  in  terms  of  a computer  flow  chart  of  the  complete  program. 

The  general  effects  of  incorporating  the  direct  covariance  algorithm 
into  an  existing  digital  computer  program  are  identified,  and  subroutines 
are  grouped  according  to  whether  major  or  minor  changes  are  needed  to 
realize  the  combined  algorithm.  Finally,  details  of  these  changes  are 
provided,  and  a description  of  the  resulting  control  cards  is  given 
for  a variety  of  simulation  run  conditions. 

Computer  Flow  Chart 

General  computer  software  operations  are  described  in  Figures  9 
through  12.  The  basic  diagram  for  all  operations  is  shown  in  Figure  9, 
while  nominal  flight  conditions,  Monte  Carlo  simulations,  and  covariance 
calculations  are  given  in  Figures  10,  11,  and  12,  respectively.  The 
combination  simulation  run  indicated  as  a fourth  option  in  Figure  9 is 
obtained  by  using  appropriate  control  cards  which  combine  the  operations 
described  in  Figures  11  and  12  over  designated  portions  of  the  flight. 

Subroutine  Descriptions 

The  types  of  changes  needed  to  convert  a digital  computer  program 
which  yields  only  nominal  trajectory  information,  i.e.  without  noise, 
are  indicated  in  Table  IV.  Descriptions  of  these  changes  in  individual 
subroutines  are  provided  in  the  following  paragraphs. 
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CALL  SUSR  SYSRUN  WHICH  PRINTS  HEADING 
& INITIALIZES  LAUNCHER  DYNAMICS  INDEX, 
AERODYNAMICS  ROUTINE  DERIVATIVES  AND  TARGET 
POSITIONING  AND  CONTROLS  THE  CALCULATION  OF  THE 
MISSILE  TRAJECTORY  AND  TARGET  INTERCEPT  POINT 


..  . • 

SYSINT  IS  CALLED 
STATE  VARIABL 

TO  INTEGRATE  THE 
ES  USING  RK4 

L 

T = T 

1 

I — : 
o 

+ 

STATE  VARIABLES  ARE  UPDATED  BY 
CALLING  THE  SUBRS  WHICH  CONTAIN 
STATE  VARIABLES 
■ 

STOP 


-X — 

END 


Figure  TO.  Flow  Chart  for  Nominal  Flight 


Figure  11.  Flow  Chart  for  Monte  Carlo  Simulations 


Figure  12.  Flow  Chart  for  Direct  Covariance  Algorithm 
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TABLE  IV 

SUBROUTINE  CLASSIFICATION 


MAJOR  CHANGES 

MINOR  CHANGES 

NEW  SUBROUTINE 

NO  CHANGE 

MAIN 

SYSRUN 

INTA2M 

AUTO.PT 

TARGET 

SEEKER 

SNOISE 

PRDATA 

SYSINT 

VANEMD 

RANDU 

ROTATM 

TRANSM 

RANDG 

DTLUX1 

AERODY 

RUNGKP 

FUNCTION 

DEAD 

BLOCK  DATA 

COEFF 

FUNCTION 

XLIMIT 

THRCON 

COVAR 

DETARA 

TRANS 

MDERIV 

RK4 

INITIA 

INTRP3 

45 


Subroutine  MAIN  takes  care  of  all  the  initializations  of  the 
variables  used  during  the  flight.  The  run  could  be  made  as  Nominal, 
Covariance,  Monte  Carlo  or  their  combinations  with  proper  initializations 
given  by  Cards  149-168  and  180-203.  Cards  171-177  are  initialized  de- 
pending upon  the  type  of  run  chosen.  Cards  136-146  are  used  to  read  the 
initial  values  of  the  variables  from  the  cards  and  to  write  them  on  the 
disc  to  be  used  later  in  the  program  for  re-initialization  during  Monte 
Carlo  runs.  In  Cards  206-243,  various  variables  are  initialized  which 
are  used  in  the  program.  The  Thrust  and  Aerodynamic  Tables  are  read 
in  Cards  247-266.  The  initialization  Subroutine  INITIA  is  called 
in  Card  272.  The  initialization  for  Monte  Carlo  runs  are  made  in  Cards 
274-302.  NUM  number  of  Monte  Carlo  runs  are  made  in  Cards  303-355.  The 
(NUM+1)th  (NUM  = number  of  Monte  Carlo  runs)  entry  in  the  DO  loop  is  for 
re-initializations  of  the  variables.  Cards  357-375  are  used  to  calculate 
ensemble  averages  and  for  print-out.  The  off-diagonal  multivariate 
samples  are  generated  for  Monte  Carlo  simulations  from  specified 
covariance  matrix  calculations  in  Cards  383-399  and  418-420.  If 
VTIME2  is  greater  than  or  equal  to  TST0P,  then  in  Card  381  the  program 
is  diverted  to  Card  465.  If  Monte  Carlo  runs  are  made  in  the  latter 
part  of  the  trajectory,  Cards  401-455  make  (NUM-1)  . uns  and  Card  380  makes 
the  first  run  resulting  in  a total  of  NUM  number  of  runs.  The  ensemble- 
averaging and  print-out  is  achieved  by  Cards  456-464. 


TARGET 


In  this  subroutine  Cards  51-79  have  been  added  to  calculate  the 
variances  of  BEPSZ  and  BEPSY  and  their  effects  are  incorporated  into 
Subroutine  SN0ISE  (Card  16).  The  details  of  Subroutines  SN0ISE  and 


DETARA  hate  been  given  already  In  Chapter  III  of  this  report.  The 
values  of  the  variances  VBEPSZ  and  VBEPSY  are  transferred  to  Subroutine 
SNOISE  through  Subroutine  SEEKER  in  Cards  9,  22,  and  28.  Cards  51 
and  52  allow  the  calculation  of  variances  only  for  the  covariance  pro* 
gram.  Cards  54*69  are  used  to  break  up  the  long  expression  of  VBEPSZ 
and  VBEPSY  In  Cards  70-74  and  75-79,  respectively. 

SYSINT 

This  subroutine  calls  the  Integration  subroutine  (RK4)  to  Integrate 
all  the  state  variable  differential  equations  over  one  time  step.  This 
routine  also  calculates  the  nonlinear  "A"  matrix  elements  for  the 
covariance  program.  The  calculation  of  implicitly  related  "A"  matrix 
elements  are  calculated  by  calling  Subroutine  COEFF.  The  direct  covariance 
algorithm  Is  obtained  by  calling  the  COVAR  subroutine  and  4s  Integrated 
by  calling  RUNGKP,  which  uses  the  RK2  integration  method.  For  the 
calculation  of  the  state  mean  and  variance  by  Monte  Carlo  runs,  the 
values  of  the  state  variables  and  their  square  are  stored  at  different 
points  In  time  and  the  ensemble  average  is  calculated  In  MAIN. 

Cards  17  to  32  have  been  added  to  transfer  the  variables  to  other 
subroutines  as  explained  in  the  previous  paragraph.  Cards  36  to  56 
are  used  to  store  the  values  of  state  variables  at  time  VTIME2  to  make 
Monte  Carlo  runs.  Also,  these  values  which  were  stored  at  time  VTIHE2 
are  printed  the  first  time  through  the  program.  Cards  59  to  67  are 
used  to  calculate  four  normally  distributed  random  number  with  unity 
variance  and  zero  mean  for  Monte  Carlo  runs.  These  numbers  are  used 
in  tiie  VANEMD  and  TARGET  subroutines.  Cards  86  to  220  are  used  to 
calculate  the  nonlinear  "A"  matrix  elements  only  the  first  time  through 
the  program.  Cards  230  - 259  are  used  to  calculate  and  integrate  the 
covariance  matrix,  to  check  for  negative  diagonal  elements,  and  for 


print  out.  Cards  261-281  are  used  to  store  the  state  variables  and 
their  squares  at  different  points  in  time  for  Monte  Carlo  runs.  These 
values  are  stored  whenever  Ml  equals  K1  in  Card  264.  Cards  282-294 
are  used  to  store  the  value  of  state  variables  only  at  the  switching 
time  VTIME1,  which  is  needed  to  calculate  off-diagonal  terms  of  the 
covariance  matrix.  Cards  295-296  are  used  to  store  the  time  at  which 
the  state  variable  values  were  accumulated  to  find  the  ensemble-average. 

SVSRUN 

Only  a few  changes  have  been  made  in  this  subroutine.  In  Card  26 
the  value  of  KIT  is  initialized  to  zero  in  MAIN  and  transferred  by  a 
conmon  block  in  Card  21.  This  value  is  changed  only  in  Subroutine 
SYSINT  Card  40  when  the  program  is  switched  from  covariance  to  Monte 
Carlo  to  see  that  the  aerodynamics  routine,  derivatives  and  target  position, 
etc.,  are  not  initialized  when  Monte  Carlo  runs  are  made  for  T greater 
than  VTIME2.  Card  63  makes  sure  that  the  K is  reinitialized  to  1 because 
the  program  bypassed  Card  53.  Cards  120-123  are  used  to  control  the 
program  for  Monte  Carlo  runs.  The  value  of  KONTER  is  altered  only  in 
Card  122.  Once  it  attains  the  value  equal  to  NUM,  then  KONTER  is  not 
altered  thereafter.  Cards  146-151  are  used  to  print  out  the  covariance 
matrix  at  that  instant  in  time. 

SEEKER 

In  this  subroutine  Cards  8 - 10,  20-23,  and  26-29  were  added  to  Insert 
noise  into  the  seeker,  and  Subroutine  SNOISE  is  called  to  calculate 
the  mean  and  variance  across  the  nonlinearity.  These  values  are  only 
calculated  when  the  covariance  program  is  in  operation.  Otherwise, 
these  cards  are  bypassed. 
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VAijMED 

In  this  routine  noise  is  added  in  the  vane  modules  when  the  Monte 
Carlo  program  is  run.  In  Cards  15-18,  normally  distributed  random 
numbers  are  calculated  in  Subroutine  SYSINT  by  calling  RANDG. 

TRAjjSM 

Card  25  is  used  while  calculating  implicitly  related  "A"  coefficient 
matrix  elements  in  the  COEFF  subroutine.  The  value  of  KK1  is 
initialized  in  MAIN  to  1 and  is  only  altered  in  COEFF  and  then  again 
replaced  by  1 at  the  end  of  the  COEFF  Subroutine.  In  Card  65  when  KK3 
is  not  equal  to  zero  the  program  returns  to  the  calling  subroutine. 

KK3  is  initialized  in  MAIN  to  zero  and  is  passed  through  the  common 
block  Card  18.  The  value  of  KK3  is  modified  only  in  the  COEFF  subroutine 
and  is  replaced  by  zero  at  the  end  of  this  subroutine. 

AERODY 

Only  two  cards  were  added  to  this  routine:  Cards  19  and  23. 

The  value  of  KK5  is  passed  through  the  common  block  in  Card  19.  The 
value  of  KK5  is  initialized  to  zero  in  MAIN.  This  value  is  only  modified 
in  the  COEFF  subroutine  for  the  calculation  of  the  implicitly  related 
"A"  coefficient  matrix  elements.  The  value  of  KK5  Is  replaced  by 
zero  at  the  end  of  the  COEFF  subroutine. 

BLOCK  DATA 

Cards  9 and  10  were  added  to  initialize  the  step  size  and  the 
number  of  state  variables  denoted  by  H and  MS,  respectively,  in  Card 
9.  The  step  size  H is  not  used  at  present  in  the  program  but  MS  is 
used  at  various  places  throughout  the  program  mainly  for  DO  loops. 
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THRCON 

Card  13  is  added  in  the  routine  to  preserve  the  values  of  THRP 
and  TIMP  while  making  calculation  for  "A"  matrix  elements  in  Subroutine 
COEFF.  These  values  are  preserved  in  COEFF  by  transferring  them  to 
other  variables  and  replacing  them  at  the  end  of  calculations. 

INTA2M 

This  new  subroutine  initializes  the  constant  elements  of  the  "A" 
matrix  only  once  in  the  MAIN  program  through  Card  243. 

RANDU 

This  program  generates  normally  distributed  random  numbers  with 
zero  means  and  unity  variances.  The  random  numbers  equal  in  number 
to  the  number  of  state  variables  are  generated  and  passed  through  variable 
YNORM  to  MAIN  by  Card  417.  These  are  used  for  Monte  Carlo  runs  after 
time  VTIME2  to  give  random  normally-distributed  starting  conditions 
at  that  point  in  time. 


RANDS 

This  program  also  generates  normally  distributed  random  numbers 
with  zero  means  and  unity  variances.  These  numbers  are  transferred 
through  variable  XNORM  when  called  in  Subroutine  SYSINT  through  Cards 
64  and  67.  These  normally  distributed  numbers  are  used  to  Insert 
noise  in  the  vane  modules  and  the  seeker  during  Monte  Carlo  simulations 
at  locations  in  VANEMD  by  Cards  15-18  and  in  TARGET  by  Cards  48  and  49. 

RUNGKP 

This  subroutine  is  an  integration  routine  and  the  RK2  method  of 
integration  is  used  to  Integrate  n(n+l)/2  equations  where  n is  the 
number  of  state  variables.  This  routine  is  called  in  SYSINT  (Card  236). 
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The  value  of  DTH  is  transferred  from  SYSINT  via  Card  231. 


COEFF 

This  subroutine  calculates  the  implicitly  related  "A"  matrix  co- 
efficients. In  all,  79  elements  are  calculated  in  this  routine.  The 
values  of  the  KK‘s  are  defined  in  Cards  38-42.  These  are  used  throughout 
the  program  to  control  the  required  calculation  of  the  "A"  matrix  elements. 
The  nominal  trajectory  is  perturbed  slightly  (Cards  43-46)  to  calculate 
the  effect  of  this  perturbation  and  thus  obtain  the  "A"  matrix  elements. 
Card  47  sends  the  routine  to  Card  69  to  store  and  preserve  the  nominal 
trajectory  variables  so  that  those  values  can  be  replaced  after  the 
calculations.  Card  116  then  sends  the  program  to  Card  342  to  calculate 

the  effect  of  the  perturbation.  In  Card  358,  Subroutine  MDERIV  is  called 

* 

only  if  LAUNCH  is  one  or  two.  The  "A"  matrix  elements  denoted  by  NC 
in  Table  II  on  Page  31  are  equated  to  zero  after  LAUNCH  is  greater  than 
2 only  once  in  Cards  362-366.  Since  the  value  of  KK4  is  one,  the 
program  goes  from  Card  359  back  to  Card  183.  In  Cards  183-191,  the 
next  value  of  the  state  variable  is  perturbed  and  the  program  goes 
to  Card  117, where  the  A matrix  elements  are  calculated.  Since  KK3 
was  7,  the  program  goes  to  Card  138  to  replace  the  values  of  those 
variables  which  were  stored  and  preserved  earlier.  The  program  again 
goes  to  Card  69  from  Card  182  to  repeat  the  same  procedure  for  the 
next  state  variable. 


CQVAR 

In  this  program  the  covariance  algorithm  is  implemented.  Since 
the  P matrix  is  symmetrical,  the  lower  triangle  of  the  P matrix  is 
equated  to  the  upper  triangle  in  Cards  11-13.  In  Cards  14-94  the  AP 


51 


matrix  is  calculated.  In  Cards  95-97  the  PAT  matrix  is  obtained. 

Cards  98-100  give  the  AP  + PAT  matrix.  The  BQBT  terms  are  added  in 
Cards  101-111. 

HDERIV 

This  subroutine  has  been  added  to  modify  the  derivatives  when  the 
launcher  dynamics  are  in  effect.  It  is  called  in  the  COEFF  subroutine 
(Card  358)  during  the  calculations  of  the  implicitly  related  "A" 
matrix  elements.  This  program  is  a part  of  the  ROTATM  subroutine  (Cards 
49-72)  with  a change  of  variables. 

Summary 

The  details  of  the  combined  computer  software  package  have  been 
presented  in  this  chapter.  Flow  charts  have  been  provided  to  describe 
the  nominal  flight,  Monte  Carlo  simulations  and  the  direct  covariance 
algorithm.  It  should  be  pointed  out  that  Cards  149-203  in  MAIN 
describe  the  necessary  modifications  to  run  any  of  these  cases, 
including  the  combination  run.  Numerical  results  using  this  software 
package  are  given  in  the  following  chapter. 


CHAPTER  V 


NUMERICAL  RESULTS 


Both  preliminary  and  final  numerical  results  are  presented  in  this 
chapter  for  the  six  degree-of-freedom  air  defense  missile  system 
described  in  Chapter  III.  Initially,  tradeoff  considerations  and  simpli- 
fying approximations  are  given.  Direct  covariance  runs  on  the  range 
from  one  to  two  seconds  into  the  flight  are  then  presented  for  modifications 
yielding  from  thirty-first  up  to  fifty-first  order  missile  systems. 

Core  and  speed  requirements  for  these  different  systems  are  identified. 

It  is  shown  that  the  initial  and  terminal  portions  of  the  flight  are 
too  nonlinear  for  the  application  of  the  direct  covariance  algorithm 
and,  therefore,  that  Monte  Carlo  simulations  must  be  utilized  on  these 
highly  nonlinear  segments.  Final  numerical  results  are  presented  for 
the  entire  flight  by  using  the  combined  software  package  of  Chapter 


Tradeoff  Considerations 

The  considerations  that  must  be  made  during  tradeoff  studies 
are  closely  related  to  the  criteria  for  comparison  purposes  presented 
in  Chapter  I.  Since  the  information  provided  and  the  extension  pos- 
sibilities are  fixed  by  selecting  the  direct  covariance  approach,  only 
the  remaining  criteria  of  accuracy,  computational  speed,  computer 
storage,  and  program  complexity  may  be  used  for  tradeoff  possibilities. 
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Accuracy 

Accuracy  plays  a major  role  In  achieving  computational  efficiency, 
since  it  has  an  inverse  relationship  with  the  computational  speed.  For 
example,  trading  accuracy  for  computational  speed  by  changing  the  inte- 
gration method  from  the  fourth-order  Runge-Kutta  formula  (RK4)  to  the 
second-order  Runge-Kutta  formula  (RK2)  may  reduce  the  computation 
time  considerably  for  large-scale  systems.  In  any  simulation  problem 
the  minimum  acceptable  accuracy  level  limits  the  maximum  integration 
step  size  that  may  be  chosen.  Tradeoffs  for  the  large-scale  system 
are  also  influenced  by  the  fact  that  direct  covariance  technique  gives 
exact  results  for  linear  systems  while  the  errors  in  the  results  of 
nonlinear  systems  depend  on  the  amount  of  nonlinearity  and  the  input 
noise  level.  In  addition  to  the  choice  of  integration  method  and  the 
selection  of  the  step  size,  the  frequency  at  which  the  coefficient 
matrix  is  updated  affects  the  algorithm  accuracy. 

Computational  Speed 

Tradeoffs  may  be  used  to  minimize  the  computer  time  needed  for 
the  large-scale  simulation  and  the  application  of  the  direct  covari- 
ance algorithm.  For  the  developed  software  package,  the  integration 
time  needed  for  the  covariance  matrix  equations  may  be  reduced  by 
nearly  one-half  by  changing  the  integration  method  from  RK4  to  RK2,  as 
mentioned  earlier.  A savings  in  computer  time  is  also  obtained  by 
categorizing  the  coefficient  matrix  elements  as  zero,  constants, 
nonlinear,  and  implicitly  related  to  the  state  variables.  Since  the 
A(t)  matrix  is  usually  a sparse  matrix,  many  coefficient  elements  are 
zero  and  thus  neglecting  them  entirely  during  the  calculations 
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reduces  the  computer  time  considerably.  Table  III  summarizes  this 
categorization  for  the  thirty-third  order  missile  system  described  in 
Chapter  III.  Finally,  further  reductions  in  computational  time  may  be 
achieved  by  calculating  the  A(t)  coefficient  matrix  elements  after 
every  few  integration  intervals  instead  of  every  integration  interval. 


Computer  Storage 

The  computer  storage  needed  for  applying  the  software  package  to 
the  large-scale  system  can  also  be  reduced  by  tradeoff.  The  general 
implementation  of  the  direct  covariance  algorithm  for  large-scale 
systems  requires  a much  higher  computer  storage  as  compared  to  a par- 
ticular implementation.  For  an  nth-order  system,  storing  the  large 
A(t)  and  B(t)  matrices  requires  a large  amount  of  compute**  storage. 

This  may  be  reduced  by  deleting  the  zero  elements  and  either  con- 
verting these  matrices  into  smaller  matrices  or  to  vector  form.  How- 
ever, this  procedure  would  tend  to  increase  the  complexity  of  the 
computer  software  package. 

Program  Complexity 

The  program  complexity  is  another  measure  of  an  efficient  computer 
software  package.  The  general  implementation  of  the  direct  covariance 
algorithm  may  reduce  the  program  complexity  to  a minimum,  whereas  a 
particular  implementation  makes  it  quite  complex.  The  complexity 
also  increases,  as  noted  above,  by  converting  A(t)  and  B(t)  in  smaller 
matrices  or  vector  form.  Thus,  a balance  must  be  reached  by  trading 
accuracy,  computational  time,  computer  storage,  and  program  complexity 
to  provide  a computationally  efficient  final  software  package. 
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Program  Simplifications 

Simplifying  approximations  were  used  for  speeding  up  the  direct 
1 covariance  program.  The  use  of  constant  coefficients  in  place  of 

, slowly- varying  coefficients  in  the  variational  equations  and  neglecting 

extremely  small  coefficients  entirely  were  approximations  that  were 
! examined.  In  particular,  28  of  the  38  nonlinear  elements  of  the 

! incremental  coefficient  matrix  A{t)  were  held  constant  throughout 

i the  flight  period  of  interest  without  a serious  degradation  in 

) 

results.  Furthermore,  18  of  the  79  numerically  computed  elements  were 
also  simplified,  and  their  effect  was  negligible  on  the  performance 
of  the  direct  covariance  software  package.  Finally,  the  possibility 
of  computing  the  "A"  matrix  elements  at  different  varying  intervals 
was  investigated,  but  it  was  shown  that  the  necessary  overhead  operations 
made  such  a procedure  unfeasible. 

The  calculation  of  all  "A"  matrix  elements  automatically  i.e. 
numerically,  was  shown  to  require  a computation  time  that  was  much 
too  long.  However,  such  operations  yield,  in  general,  the  simplest 
possible  program.  For  a fifty-first  order  missile  system,  this  simplest 
program  for  computing  all  2601  "A"  matrix  elements  requires  approximately 
27  minutes  on  the  Sigma  5 Computer  for  computations  in  the  range 
between  1 second  and  1.1025  seconds  into  the  flight.  The  minimum 
computational  time  possible  was  only  approximately  5 minutes  obtained 
by  using  constants  and  nonlinear  expressions  wherever  possible  as 
indicated  by  Table  III  in  Chapter  III.  Also,  the  zero  elements 
were  not  computed.  The  resulting  program  was  obviously  more  complex 
than  the  general  program.  An  intermediate  possibility  which  required 
approximately  six  minutes  for  the  given  calculation  was  also  identified 


by  eliminating  a large  number  of  the  zero-element  calculations  but 
including  certain  of  these  elements  when  they  are  grouped  within  a 
given  block  of  non-zero  elements.  For  the  direct  covariance  algorithm, 
approximately  36K  words  of  core  {including  the  monitor)  are  needed 
to  perform  noise  propagation  calculations  for  systems  up  to  fifty- 
first  order. 


Preliminary  Numerical  Results 

Significant  problems  were  encountered  in  implementing  the  direct 
covariance  algorithm  for  the  initial  portion  of  the  flight.  These 
problems  are  discussed  in  detail  later  in  this  section.  Because  of 
these  problems,  comparisons  between  Monte  Carlo  simulations  and  co- 
variance  runs  were  made  on  the  range  between  one  and  two  seconds  into 
the  flight.  Numerical  results  are  shown  in  Figure  13  for  several  orders 
of  missile  systems. 

The  thirty-first  order  system  was  obtained  from  the  thirty- third 
order  system  in  Figure  5 by  neglecting  the  dynamics  of  the  second- 
order  seeker  subprogram.  The  thirty-seventh  order  system  included 
the  addition  of  two  second-order  filters  (pitch  and  yaw  rate  gyros) 
in  the  autopilot.  Tests  were  also  made  by  using  two  seventh-order 
colored  noise  prefilters  for  the  actuator  noise  inputs  to  yield  a 
fifty-first  order  system.  The  comparisons  between  Monte  Carlo  simulations 
and  these  covariance  results  Indicate  that  existing  errors  may  be 
attributed  to  the  use  of  only  25  Monte  Carlo  runs.  These  tests  were 

p 

made  by  using  seeker  input  noise  signals  with  variances  of  (2  degrees)  , 
which  are  later  shown  to  yield  excessive  miss-distances.  The  seeker 
characteristics  used  earlier  in  a terminal  homing  simulation  on  the 
hybrid  computer  at  the  U.  S.  Army  Missile  Command  had  noise  variances 
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Figure  13.  Numerical  Comparisons  Between  Monte  Carlo 
Simulations  and  Covariance  Runs 
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2 2 

on  the  range  between  (0.15  degrees)  and  (2.0  degrees)  . However 
noise  inputs  at  the  lower  level  of  this  range  yielded  poor  comparisons 
between  Monte  Carlo  and  covariance  results. 

o 

It  was  shown  that  for  seeker  input  noise  variances  of  (2  degrees) 
the  direct  covariance  algorithm  could  not  be  used  for  either  that 
part  of  the  flight  up  to  one  second  or  that  part  beyond  twelve 
seconds.  In  those  regions  of  operations,  harsh  nonlinearities  prohibited 
the  necessary  linearizing  assumption  described  in  Chapter  II. 

Finally,  the  computational  times  and  core  requirements  are  given 
in  Table  V both  for  the  one-to-two  second  interval  and  for  the  entire 
missile  flight  of  approximately  12.9  seconds.  These  numbers  are  based 

on  the  assumption  that  the  direct  covariance  algorithm  would  be  used 
for  the  entire  flight.  Since  this  assumption  has  been  shown  to  be 
invalid,  these  computational  times  will  be  increased  for  the  combined 
computer  Software  package  described  in  the  following  section. 


TABLE  V 

COMPUTATIONAL  TIMES  AND  CORE  REQUIREMENTS 


System 

Order 


Computational  Time  (Minutes) 

Core 

Part  of  Flight  Entire  Flight  Reguirements 

(1.0  to  2.0  seconds)  (0  to  12.9  seconds)  (Words) 


31 

5.2 

33 

5.6 

37 

6.2 

51 

9.1 

41 

27K 

44 

28K 

49 

31 K 

72 

36K 

i 
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Numerical  Results  for  the  Total  Flight 

The  combined  Monte  Carlo-direct  covariance  computer  software 
package  was  run  on  the  existing  computing  equipment  at  the  U.  S.  Army 
Missile  Command  for  the  entire  missile  flight  of  12.9  seconds.  The 
computer  run  time,  which  included  25  Monte  Carlo  runs  for  certain 
portions  of  the  flight,  was  approximately  two  and  a half  hours.  It 
was  shown  above  that  both  the  launch  segment  and  terminal  mode  of 
the  missile  flight  are  too  nonlinear  for  the  application  of  the 
covariance  algorithm.  Therefore,  the  sequential  application  of  tne 
Monte  Carlo  program  for  the  first  second,  the  covariance  program  for 
t = 1 to  t = 12  seconds,  and  the  Monte  Carlo  program  for  the  final 
0.9  second  has  been  utilized  to  form  the  completed  software  oackage. 

The  2 1/2  hour  run  time  for  the  combined  program  would  be  reduced  to 
only  approximately  45  minutes  (Table  V)  if  the  missile  nonlinearities 
had  been  mild  enough  to  permit  the  use  of  the  covariance  algorithm 
on  all  parts  of  the  missile  flight.  On  the  other  hand,  approximately 
5 hours  would  be  required  for  a complete  Monte  Carlo  evaluation  of 
25  runs  on  the  given  system.  How  -,  a much  larger  number  of  runs 
(at  least  several  hundred)  would  be  needed  to  yield  the  high 
accuracy  obtained  by  the  covariance  algorithm  during  the  mid-portion 
of  the  flight. 

Final  numerical  results  for  the  total  flight  of  approximately 
12.9  seconds  are  given  in  Figures  14  and  15.  Figure  14  shows  the 
variances  of  X,  Y,  and  Z as  functions  of  time  for  the  range  on  which 
the  direct  covariance  algorithm  is  used.  This  curve  demonstrates  that 
the  state  covariance  matrix  elements  of  interest,  i.e.  P(1 9 ,19) , P (20,20) , 
and  P(21 ,21 ) , each  increase  monotonically  on  the  given  range.  Figure 
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15  shows  a sketch  of  the  probability  distribution  function  of  the  miss- 
distance  obtained  from  Monte  Carlo  runs  in  the  terminal  mode  of  the 
flight.  It  is  apparent  from  Figure  15  that  the  seeker  input  noise 
levels  of  (2.0  degrees)  were  considerably  too  large  to  yield  reasonable 
miss-distances. 

Correlated  multivariate  samples  from  a Gaussian  density  function 
equal  in  number  to  the  order  of  the  system  were  generated  to  yield 
the  appropriate  random  state  at  t = 12  seconds  for  Monte  Carlo  simu- 
lations during  the  terminal  mode.  These  samples  were  obtained  by 
generating  n unity  variance  independent  Gaussian  random  numbers  (x^) 
by  standard  procedures.  As  shown  by  Marsaglia (30) , the  desired  cor- 
related random  numbers  (y^ ) may  be  obtained  from  the  triangular  trans- 
formation 

*1  = gllXl 

y2  = 912x1  + g22x2 

y3  = g13Xl  + g23x2  + g33x3  (5.1) 


yk  = glkxl  + g2kx2 


+ 4* 

> • • • • • • • 


9kkxk 


where  the  desired  covariance  matrix  R is  used  to  solve  for  G from 

J 


R = GG 

It  can  be  shown  (30)  that  the  resulting  elements  of  G satisfy 

an  = •'■vT 

gij = Vin. 
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(5.3) 
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Summary 

Preliminary  and  final  numerical  results  have  been  presented  for 
the  six  degree-of-freedom  air  defense  missile  system.  The  direct 
covariance  algorithm  implementation  was  verified  by  comparing  with 
25  Monte  Carlo  runs  on  the  range  from  t = 1 to  t = 2 seconds.  There- 
after^ combined  computer  software  package  was  formed  by  using  the 
direct  covariance  algorithm  on  the  mid-portion  of  the  flight  between 
t = 1 and  t = 12  seconds  and  the  Monte  Carlo  technique  on  the  launch 
and  terminal  parts.  Finally,  it  was  indicated  that  the  range  of 
applicability  of  the  direct  covariance  algorithm  decreased  significantly 
for  the  given  missile  system  for  lower  values  of  seeker  input  noise 
variances. 
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CHAPTER  VI 
FINAL  GUIDELINES 

A combined  Monte  Carlo-direct  covariance  digital  computer  software 
package  for  missile  system  analysis  has  been  developed  and  tested.  The 
completed  software  package  is  capable  of  handling  noise  propagation 
calculations  for  large  scale-missile  systems  up  to  approximately 
50th  order.  This  computer  program  has  been  tailored  for  use  on  the 
existing  Sigma  5 equipment  at  the  U.  S.  Army  Missile  Command.  In 
particular,  the  most  important  considerations  are  the  resulting  accuracy, 
computer  core  requirements,  and  program  complexity.  Since  48K  words 
of  core  storage  are  presently  available,  the  combined  software  package 
can  be  used  without  modifications  for  lower  core  requirements  (Table  V) 
on  large-scale  missile  systems  at  the  U.  S.  Artny  Missile  Command. 

Accuracy  levels  have  been  established  for  the  six  degree-of- 
freedom  air’defense  system  described  in  earlier  chapters  of  this  final 
report.  It  was  shown  in  Chapter  II  that  the  use  of  only  25  Monte 
Carlo  runs  should  be  expected  to  yield  errors  on  the  order  of  30% 
to  35%.  Figure  14  in  Chapter  V shu.vs  that  the  direct  covariance 
algorithm  results  differed  from  the  results  from  25  Monte  Carlo  simulations 
by  approximately  30%.  Therefore,  the  accuracy  of  the  direct  algorithm 
was  established  for  the  mid-portion  of  a typical  flight.  This  same 
comparison  technique  indicated  that  Monte  Carlo  simulations  should 
be  used  for  the  launch  and  terminal  modes.  Therefore,  a combined 
Monte  Carlo-direct  covariance  package  was  developed  for  use  on  a 
wide  range  of  typical  missile  systems.  Some  simulation  experience 
is  needed  on  a given  application  to  determine  that  part  of  the  flight 
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for  which  the  direct  covariance  algorithm  should  be  used.  This 
experience  is  usually  obtained  during  the  initial  simulation  effort 
for  the  noise-free  case. 

Tradeoff  possibilities  with  respect  to  accuracy,  computational 
speed,  computing  equipment  requirements  (including  storage),  and  program 
complexity  were  examined.  It  was  shown  that  the  RK2  integration 
formula  represented  an  efficient  tradeoff  between  speed  and  accuracy 
i or  covariance  matrix  calculations.  The  use  of  a general  program  for 
conv„ all  elements  of  the  "A"  matrix  was  found  to  be  inefficient. 

A more  suitable  approach  involved  the  use  of  constant  elements,  nonlinear 
elements,  and  implicitly  related  elements  in  the  proper  framework. 

The  resulting  program  was  somewhat  more  complex  in  format,  but  the 
savings  in  computational  time  was  significant. 

Finally,  simplifying  approximations  were  developed  to  speed  up 
the  operation  of  the  combined  software  package.  Constant  coefficients 
were  used  to  replace  slowly- varying  elements  of  the  "A"  matrix.  It 
was  shown  that  during  the  large  mid-portion  of  the  flight,  where  the 
direct  algorithm  was  applicable,  an  important  approximation  involved 
the  propagation  of  noise  through  the  seeker  relay  nonlinearities. 

Output  variance  calculations  for  these  relays  were  achieved  from 
Subroutines  SNOISE  and  DETARA.  If  corresponding  calculations  could 
be  performed  for  the  large  number  of  nonlinearities  in  the  launch  and 
terminal  modes  of  flight,  then  the  direct  covariance  algorithm  could 
be  utilized  over  a larger  range  of  the  total  flight.  As  indicated 
in  Figure  16  of  Chapter  V,  the  applicability  of  the  direct  covariance 
algorithm  is  also  determined  from  the  noise  input  levels.  The  proper 
handling  of  these  nonlinearities  will  yield  for  given  applications 
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even  greater  improvements  by  using  the  combined  software  package. 

Related  Work 

Comparisons  between  the  combined  software  package  described  in 
this  report  and  other  approaches  to  noise  propagation  in  large-scale 
nonlinear  systems  are  provided  in  (33).  Results  on  sensitivity  analysis 
for  noise  propagation  problems  are  included  in  (34).  Both  of  these 
papers,  as  well  as  others,  are  reproduced  in  Appendix  A of  this  report. 

As  suggested  in  Chapter  I,  an  immediate  extension  of  the  noise 
propagation  capabilities  of  the  combined  software  package  to  filtering 
applications  is  possible.  In  particular,  the  subsequent  development 
of  an  efficient  software  package  for  Kalman  filtering  as  a practical 
estimation  algorithm  is  recommended. 
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APPENDIX  A 

REPRINTS  OF  SELECTED  PAPERS 

This  appendix  contains  the  reprints  of  five  selected  journal 
and  conference  publications  which  are  closely  related  to  the  work 
of  this  contract.  The  first  of  these  papers,  which  has  been  listed 
as  Reference  (25),  describes  the  application  of  the  direct  covariance 
algorithm  to  computer-aided  electronic  circuit  analysis  and  design. 

This  journal  publication  is  based  on  results  presented  earlier  in  U.  S. 
Army  Technical  Memorandum  RG-TR-71-19  (Reference  (24)).  An  extension 
of  other  results  in  Reference  (24)  on  sequential  covariance  matrix 
calculations  was  presented  as  a conference  paper  at  the  1972  Southwestern 
IEEE  Conference  in  Dallas,  Texas.  This  paper,  listed  as  Reference 
(31),  is  included  as  the  second  reprint  in  this  appendix.  The  third 
reprint,  Reference  (32),  describes  a general  formulation  of  the  optimal 
digital  simulation  problem  discussed  for  specific  cases  in  Chapter 
II  of  this  report.  A brief  survey  of  noise  propagation  techniques 
for  large-scale  nonlinear  systems  is  included  as  the  fourth  reprint 
(Reference  (33)).  Finally,  the  fifth  paper  included  here  describes 
a stochastic  algorithm  for  sensitivity  analysis.  Tfr>s  new  result 
(Reference  (34))  provides  error  tolerance  bounds  on  covariance  matrix 
elements  due  to  incompletely  specified  input  noise  variances. 
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A direct  covariance  algorithm  is  presentod  for  handling  problems  of  component 
tolorance  analysis  and  random  input  variations  with  a particular  emphasis  for 
utilization  in  computer-aided  statistical  electronic  circuit  design.  It  is  shown  that 
tliis  result  is  applicable  to  a wido  range  of  electronic  circuit  arrays  having  non-linear 
components.  Moreover,  a systematic  procedure  is  developed  for  predicting  in 
advance  the  expected  ucourncy.  Numerical  results  comparing  the  direct  covariance 
algorithm  with  up  to  1000  Monte  Carlo  ensemble-averaged  oomputer  runs  are 
provided.  Contrary  to  popular  beliof,  errors  of  10  to  25%  are  obtained  by  us:ng 
25  to  100  Monte  Carlo  runs.  Improvements  in  both  accuracy  and  computational 
8|>eod  clearly  demonstrate  that  the  direct  covarianco  algorithm  is  a versatile  and 
effective  computer-aided  design  tool. 


I.  Introduction 

Noise  problems  inherent  in  practical  circuit  designs  are  frequently  identified 
only  after  the  basic  design  has  been  completed  and  production  testing  has 
begun.  Rarely  do  statistical  performance  design  requirements  proceed  parallel 
with  other  design  requirements.  A first  step  in  establishing  these  statistical 
design  requirements  is  the  development  of  a fast,  effective  statistical  analysis 
tool  for  use  during  the  preliminary  design.  While  the  traditional  Monte  Carlo 
method  provides  acceptable  statistical  results  by  using  a sufficiently  large 
number  of  digital  simulation  runs,  its  frequent  use  during  the  design  stage 
can  become  prohibitively  expensive.  As  a circuit  array  increases  in  size  and 
complexity,  digital  computer  time  for  a single  simulation  run  goes  up  very 
rapidly.  Repented  runs  further  increase  the  computational  time  and  associ- 
ated computer  costs.  An  efficient,  easily  applied,  statistical  analysis  technique 
having  a reliable  accuracy  is  needed  to  pinpoint  potential  noise  problems 
during  the  developmental  stages  of  electronic  circuit  design. 

The  increasing  emphasis  on  statistical  analysis  techniques  in  computer- 
aided  circuit  design  has  resulted  in  expanded  programmes  for  handling  problems 
in  component  tolerance  analysis,  modelling,  and  simulation.  For  example,  an 
extensive  continuing  programme  in  computer-aided  statistical  circuit  design 
has  been  described  by  Dickicson  and  Chernak  (1971).  Semmelman  ct  al. 
(1971)  and  Cermak  and  Kirby  (1971)  have  discussed  present  state-of-the-art 
capabilities  for  linear  and  non-linear  computer-aid ->d  statistical  circuit  design. 
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Furthermore,  Logan  (1971)  described  the  characterization  and  modelling  of 
components  for  tolerance  analysis,  and  Karafin  (1971)  used  tolerance  analysis 
for  optimum  design.  More  recently,  Pincl  and  Roberts  (1972)  treated  the 
tolerance  assignment  problem  for  linear  networks  on  a worst-case  basis  by 
non-linear  programming. 

This  paper  uses  the  state-space  approach,  described  for  circuit  analysis 
and  design  by  Pottle  (1906)  and  Yarlagadda  (1972),  to  develop  a direct  co- 
variance algorithm  for  determining  the  effects  resulting  from  random  input 
and/or  component  variations.  Related  r*-onlt«  by  Irwin  and  Hung  (1967), 
Ktilmel  and  Sage  (1969),  and  Rowla-.a  and  Holmes  (1971)  have  been  used 
for  large-scale,  non-linear  S3,stcmr.  in  aerospace  applications.  These  results 
were  based  on  earlier  work  in  linear  filtering  theory  by  Kalman  (1960).  The 
contributions  of  this  paper  arc  (1)  the  development  and  application  of  the 
direct  covariance  algorithm  for  linear  and  non-linear  circuit  analysis  problems, 
(2)  the  development  of  an  accuracy  prediction  scheme  for  estimating  in 
advance  the  range  of  applicability  in  non-lincar  cases,  and  (3)  numerical 
comparisons  showing  the  need  for  a very  large  number  of  Monte  Carlo  runs 
for  comparable  accuracy. 


2.  The  direct  covariance  algorithm 

Consider  a non-linear  circuit  whose  dynamical  response  may  be  expressed 
in  state  variable  form  as 

x=f(x,  r(/).w((),  a,i)  (1) 

where  x is  an  n-dimcnsionul  vector  representing  the  circuit  state,  r(l)  i3  a 
k vector  of  non-random  inputs,  w(<)  is  an  m vector  of  random  process  circuit 
inputs  and/or  parameters,  and  a is  a j vector  of  random  bias  (i.e.  random 
variable),  circuit  inputs  and/or  parameters.  As  indicated,  the  n vector  f is  a 
non-linear  functional  of  those  vector  arguments  shown  in  eqn.  (1). 

Let  the  mean  values  of  w(<)  and  a be  represented  by  and  respectively. 
Observe  that-  the  distinction  between  the  random  vectors  w (<)  and  a is  that 
w(0  is  a white  noise  random  process  while  a is  a random  variable  that  is 
constant  in  time.  Let  the  covariance  matrices  of  w(<)  and  a be  defined  by 

£{(w(0  - vJDmr)  - r,Jr))T)  A Qjl)S(l  - r)] 


tf{(a-  ,.)(«  -vJT}*Q,  J 

where  S(  ■ ) represents  the  delta  function. 

it  is  assumed  that  f in  eqn.  (1)  is  a sufficiently  smooth  functional  of  its 
arguments  such  that  its  first  partial  derivatives  with  respect  to  x,  w(/)  and 
a exist.  Let  f be  expanded  in  a Taylor  series  about  the  noise-free  solution 
xs(/)  to  yield  from  eqn.  (1)  the  linearized  incremental  equation  given  by 

5x  = A (I)  8x  + )8w(<)  + C’(f)8oc  (3) 

where  the  noise-free  solution  is  the  solution  of  eqn.  (1)  obtained  by  replacing 
the  noise  vectors  w(/)  : ad  a by  their  moan  values,  i.c. 

xx(f)«f(xN,  .•(<),  1)w,1Jo,0  (4) 


(4) 
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Moreover,  the  matrices  A (/),  B(t)  and  C(t)  in  eqn.  (3)  are  used  to  represent 
fit'll  partial  derivatives  defined  by 


A(i)±- 
ox  N. 


B(t)^~ 

tw 


ra 


(5) 


where  the  subscript  N is  used  to  denote  that  the  partial  derivatives  are 
evaluated  at  the  nominal,  or  noise-free,  condition.  Finally,  the  incremental 
variations  in  x,  w (/)  and  u about  their  nominal  values  are  given  by 


8x  Ax(t)-xN-(f) 


Sw(0-w(l)-i)w(0 

8a  - a -17, 


(6) 


It  is  assumed  that  these  incremental  variations  are  sufficiently  small  suoh 
that  second  and  higher-order  Taylor  series  terms  in  eqn.  (3)  may  be  neglected. 

The  statistical  analysis  problem  under  consideration  is  to  determine  the 
state  covariance  matrix  P(l)  which  results  from  the  presence  of  random 
vectors  w(<)  and  a in  the  dynamical  eqn.  (1)  of  the  particular  circuit.  It  is 
shown  in  the  Appendix  that  P(t)  satisfies  the  matrix  differential  equation 
given  by 

(Pt)-A  ( t)P(t ) + P(t)AT(l)  + B(t)Qjt)B*(t) 

+cm.Hm+mQ.crr(h  m 

where 


P{/)  AZJ{8x8xT} 

H{t)  A J <D(f,  t)C(t)  dr 


(8) 


and  <!>(<,  r)  is  the  state  transition  matrix  associated  with  8x  in  eqn.  (3). 

The  matrix  equation  in  eqn.  (7)  is  exact  for  the  linear,  time-varying 
incremental  equation  for  Sx  in  eqn.  (3).  However,  since  second  and  higher- 
order  terms  in  the  Taylor  series  expansion  of  f have  been  neglected  in  arriving 
at  eqn.  (3),  the  application  of  the  direct  covariance  result  in  eqn.  (7)  must  be 
recognized  as  providing  only  an  approximate  analysis  for  the  non-linear 
dynamical  circuit  in  eqn.  (1).  Particular  examples  described  in  the  following 
section  demonstrate  that  the  linearization  assumption  is  justified  for  low- 
noise,  mildly  r on-linear  circuits. 
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3.  Numerical  results 

Two  examples  ure  presented  here  to  illustrate  the  usefulness  of  the  direct 
covariance  algorithm  for  circuit  analysis  as  well  as  to  indicate  its  limitations 
in  certain  highly  non-linear  cases.  Following  a brief  first  example  involving 
a simple  RL  series  circuit  with  It  being  treated  as  a random  variable,  com- 
parisons with  the  Monte  Carlo  approach  are  made  for  a non-linear,  second- 
order,  cascaded  RC  ladder  circuit.  The  need  for  ensemble-averaging  a very 
large  number  of  Monte  Carlo  simulation  runs  for  comparable  accuracy  is 
demonstrated,  and  the  resulting  advantages  of  the  direct  covariance  approach 
are  clearly  identified. 


Example  1 

Let  the  resistance  II  in  a simple  RL  series  circuit  be  represented  as  a 
random  variable  that,  is  uniformly  distributed  on  the  rango  between  rjR-R0 
and  i)u  + R0,  where  rjlt  is  10  ohms  and  R0  is  allowed  to  assume  several  constant 
values  for  purposes  of  comparison.  Elementary  considerations  may  be  used 
to  show  that  the  variance  of  R is  related  to  the  bounds  on  the  probability 
density  function  by  Qn  = R02l 3.  Moreover,  let  the  source  be  a d.c.  voltage 
of  magnitude  F,=  100  volts  applied  for  all  t ^ 0,  and  let  L be  100  millihenrys. 

The  voltage  v„  across  the  resistor,  initially  zero,  obeys  the  scalar  dynamical 
circuit  equation  given  bv 

W /? 

(9) 

with  a noise-free  solution  defined  by 

IMl-expf-ijrtf/L)]  (10) 

The  linearized  incremental  equation  corresponding  to  eqn.  (3)  is 

IMS R (11) 

Even  though  the  series  RL  circuit  itself  is  linear,  the  appearance  of  the  term 
with  R in  eqn.  (9)  as  a product  with  v,{  forces  tint  problem  into  a general 
non-linear  framework  and  requires  tho  usual  linearization  assumption  of 
sufficiently  small  variations. 

Inserting  eqn.  (10)  into  eqn.  (11)  and  identifying  the  system  coefficient 
matrices  in  eqn.  (3)  yields  tho  covariance  matrix  differential  equation  from 
eqna.  (7)  and  (8)  as 

H)- m + — ~ oxp  (-2 rt^lL)  (12) 


f t 


(13) 
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Using  eqns.  (9)  anil  (10)  with  basic  definitions  from  probability  theory 
provides  the  exact  solution  Pcx(l)  for  the  variance  of  the  voltage  across  the 
resistor  as 

nn  + H*  p uti  ♦ 

/\.*(«)  = f VH\\  -exp  ( - Rlffj)\-  J K.(l-exp(-p//L)l 

*JK  - It • L - lt% 

-GkWGk)" 

- IV  <*,.  ( - w 

( exp  ( RptlL)  - exp  ( - Hgt/L)  Y~1 

V 2 R0tfL  ) J 


(14) 


Comparisons  between  this  exact  solution  and  the  approximate  result  in  eqn. 
(13)  from  the  direct  covariance  approach  are  presented  in  fig.  1 for  the  given 
conditions.  These  two  solutions  differ  only  slightly  for  rather  wide  ranges 
of  R0  for  this  mildly  non-linear  application  of  the  direct  covariance  algorithm. 
Furthermore,  the  large  magnitudes  obtained  in  fig.  1 for  the  resistor  voltage 
variances  indicate  that  close  parameter  tolerances  can  be  quite  important  in 
circuit  design  considerations. 
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Comparisons  between  the  direct  covariance  algorithm  and  the  exact  solution  showing 
the  variance  of  the  resistor  voltage  for  Example  1. 
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Example  2 

Consider  the  second-order  non-linear  circuit  shown  in  fig.  2 and  represented 
dynamically  by 

(15) 

1 K Ky  . . 

v°=  -T7rv°+lTrVl+irFVl'Vl' 

where  7?^  = 1,  f?2C2  = and  the  source  v„(f),  applied  for  all  t^O,  is  a zero- 
mean  Gaussian  white  noise  input  with  variance  Qw.  The  operational  amplifiers 
are  included  for  amplification,  isolation,  and  summing.  The  initial  voltage 
on  Ct  is  zero,  but  tij(O),  Qv  and  the  constant  scalar  parameter  y are  allowed 
to  assume  different  values  as  indicated  below. 

The  purpose  of  this  example  is  to  present  comparisons  with  Monte  Carlo 
simulation  runs  and  to  demonstrate  the  range  of  applicability  of  the  direot 
oovarianoe  algorithm  for  non-linear  electronic  oirouit  analysis.  Figure  3 
shows  ourvos  of  ensemble-averaged  Monte  Carlo  runs  performed  on  the  digital 
computer  for  the  linear  oase  (y-0)  with  1 and  v^OJ-O.  The  variance 


Variations  in  average  per  cent  error  in  the  output  voltage  variance  versus  y for  the 
direot  covariance  algorithm  applied  to  Example  2. 
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Digital  simulation  results  for  the  direct  covariance  algorithm  and  the  Monte  Carlo 
technique  as  Q„  varies  in  Example  2. 

of  the  output  voltage  v0(t),  which  is  plotted  ns  a function  of  time  during  the 
transient  region  of  operation,  exhibits  errors  of  from  10  to  25%  for  25  to 
100  Monte  Carlo  runs.  Comparisons  with  the  exact  solution  obtained  by 
using  the  direct  covariance  algorithm  reveals  that  up  to  1000  Monte  Carlo 
runs  are  needed  for  approximately  2%  accuracy. 

Variations  in  direct  covariance  results  as  a function  of  the  amount  (y)  of 
circuit  non-linearity  are  illustrated  in  fig.  4.  For  the  same  time,  period  as  in 
fig.  3,  but  with  Q,r  = 0-5  and  e,(0)  = 0,  (he  average  per  cent  error  in  the  output 
voltage  variance  is  plotted  versus  y.  A similar  result  is  shown  in  fig.  5 for 
variations  in  Q„.  with  y = 0-05  and  w,(0)  = 0-10.  These  computer  simulation 
runs  demonstrate  that  the  error  in  the  direct  covariance  solution,  when 
compared  with  1000  Monte  Carlo  runs,  increased  ns  y and  Qw  increased  and, 
consequently,  as  the  given  electronic  circuit  became  more  non-linear.  Both 
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curves  tire  used  in  the  following  section  to  estimate  the  accuracy  expected 
from  the  direct  covariance  algorithm  by  examining  the  non-Iincai  circuital 
equations  directly.  Moreover,  fig.  5 indicates  not  only  that  this  approximate 
algorithm  might  be  unacceptable  for  highly  non-linear  circuits  but  also  re- 
emphasizes the  earlier  result  that  a very  large  number  of  Monte  Carlo  runs  are 
required  to  obtain  accurate  results. 


4.  Accuracy  prediction 

It  would  be  desirable  to  be  able  to  predict  in  advance  the  accuracy  of  the 
direct  covariance  algorithm  for  non-linear  circuits.  An  exact  prediction  of 
the  expected  accuracy  is  not  possible  because  exact  analytical  solutions 
cannot  be  found  in  general,  for  the  output  variance  of  non-linear  circuits. 
However,  the  result  from  a large  number  of  Monte  Carlo  runs  may  be  regarded 
as  a reference  solution  for  the  purpose  of  accuracy  prediction,  but  even  then 
(as  shown  in  fig.  3)  some  inaccuracy  is  present.  The  reason  for  using  the 
direct  covariance  technique  is  to  avoid  the  time-consuming  Monte  Carlo 
approach. 

Suppose  the  Monte  Carlo  runs  had  been  made  for  one  particular  design 
condition  (parameter  setting)  of  a given  electronic  circuit.  Using  this 
information,  the  following  procedure  couid  be  used  to  estimate  the  accuracy 
of  the  direct  covariance  algorithm  for  sufficiently  small  changes  in  the  para- 
meter settings.  As  a particular  example  to  illustrate  the  procedure,  consider 
the  exact  incremental  equation  associated  with  eqn.  (15),  i.e. 


»•'»  = - jrp-  H + -btt  (■  + «rl»il  t>i +t fe  SV 


(16) 


Suppose  that  the  non-linear  term  in  eqn.  (10)  is  required  to  be  not  greator 
than  lc%  of  the  corresponding  linear  terms,  i.e. 

\vW\<Tk\-28vo+\  +2yK|]N5«tl  (’7) 


where  Km 2 and  /?2Cj  = $ have  bceu  substituted  into  eqn.  (17).  Squaring 
and  taking  expected  values  yields 

y*(8ff*r,4)  ^ j [4<7<t,02 + JI  + 2y|v,|]N2  a,,* 

+ 4(1 + 2y|v1|]N  |75{8v08v1}|]  O8) 

Note  that  7?[8u,4}  has  been  approximated  by  which  is  exaot  in  this 

case  because  8c,  is  Gaussian.  Using  the  steady-state  values  of  tne  variance 
terms  obtained  from  the  linear  case  (y  = 0)  yields 

<v,2=y; 


(19) 


rr — ; Jwxa- 
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Substituting  c-qn.  (10)  into  cfjn.  (IS)  gives.  after  simplifications, 

15  t|  1 + 2yr.ll*  N-2H  t2-/c1«)!n*1  (20) 

The  equality  in  eqn.  (20)  is  plotted  in  fig.  0.  which  shows  that  as  either  y or 
Qlt.  increases,  the  per  cent  Ic  of  the  second  incremental  equation  in  eqn.  (16) 
caused  by  the  non-linear  term  increases  rapidly.  Using  the  information  in 
fig.  6 together  with  figs.  4 and  5.  the  per  cent  error  in  the  output  variance  as 
a function  of  the  parameter  Ic  may  be  plotted.  The  sketch  for  varying  y and 
Qv  is  shown  in  fig.  7.  If  Ic  is  less  than  3%,  then  the  error  in  the  output 
variance  is  less  than  5%.  However,  for  lc=  10%,  the  error  in  the  output 
variance  is  approximately  30%.  If  y and  Q„.  are  such  that  Ic  is  approxi- 
mately 10%.  then  the  direct  covariance  algorithm  compares  in  accuracy  to 
approximately  25  Monte  Carlo  runs  (30%  error).  However,  if  £ = 3%,  then 
the  accuracy  of  the  direct  covariance  algorithm  is  better  than  200  Monte 
Carlo  runs.  Therefore.  Jfc  may  be  computed  in  advance  from  the  incremental 
equations  to  determine  the  expected  accuracy  and  the  number  of  Monte 
Carlo  runs  which  would  yield  approximately  the  same  accuracy  as  the  direct 
covariance  algorithm  for  the  given  non-linear  circuit. 

These  observations  on  the  accuracy  of  the  direct  covariance  algorithm  as 
a function  of  the  quantity  k arc  precisely  correct  only  for  the  single  example 
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Plots  of  k versus  y and  Q„-  for  the  non-lineer  ciicuit  in  eqn.  (16). 
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Fig.  7 


Plots  of  per  cent  error  for  the  direct  covariance  algorithm  versus  k for  the  circuit 

described  by  eqn.  (15). 


considered.  However,  it  can  be  expected  that  other  similar  second-order 
circuita  with  parameters  sufficiently  near  those  of  the  previous  example 
would  yield  results  with  corresponding  accuracy.  In  particular,  it  should  be 
expected,  as  shown  in  fig.  7,  that  the  average  per  cent  error  in  output  variance 
would  be  on  the  order  of  threes  time  the  value  of  k.  Moreover,  some  useful 
information  would  be  obtained  even  if  this  error  varied  by  as  much  os  two  to 
four  times  k.  However,  variations  of  from  50  to  100  times  k would  be  un- 
expected. 

Monte  Carlo  simulation  experience  is  usually  available  on  those  electronic 
circuits  where  noise  disturbances  have  been  a problem.  Curves  similar  to 
those  in  fig.  7 can  bo  plotted  for  the  particular  non-linear  circuit  bcuig  con- 
sidered. As  stated  previously,  these  curves  can  be  used  to  yield  i.pproximule 
estimates  of  the  accuracy  of  the  direct  covariance  algorithm  in  given  situa- 
tions 


5.  Software  package  development 

A digital  computer  software  package  for  implementing  the  direct  co- 
variance algorithm  for  large-scale  circuits  and  systems  has  been  developed. 


J.  R.  Rowland  and  IF.  M.  Holmes 


82 


Tlio  completed  package  provides  the  capability  for  statistical  analyses  with 
realistic  engineering  trade-offs  between  accuracy,  computational  speed, 
equipment  requirements,  and  programme  complexity  for  the  user.  The 
importance  of  such  a computer  software  package  for  electronic  circuit  analysis 
is  evident  from  its  potential  usage  for  parallel  statistical  analysis  during 
preliminary  design.  The  evolutionary  nature  of  this  statistical  information 
tends  to  minimize  the  need  for  redesign  during  terminal  stages  of  circuit 
development,  which  was  discussed  by  Dawson  el  al.  (1960). 

A major  consideration  for  the  use  of  the  direct  covariance  package  in 
circuit  design  is  its  inherent  computational  efficiency.  While  comparable 
accuracy  from  the  Monte  Carlo  approach  requires  up  to  1000a  system  integra- 
tions, where  n is  the  order  of  the  system  or  circuit  being  designed,  the  direct 
covariance  algorithm  requires  n(«  + l)/2  such  system  integrations.  If  n is 
50,  for  example,  the  direct  covariance  algorithm  operates  approximately  40 
times  fast  than  the  Monte  Carlo  approach.  On  the  other  hand,  for  very  large 
circuit  arrays  of  extremely  high  order,  the  relative  economy  between  the  two 
statistical  analysis  tools  diminishes.  However,  as  shown  in  a previous  section, 
extreme  cases  of  circuits  involving  high  noise  sources  and/or  very  harsh  non- 
linearities  should  be  handled  by  the  traditional  Monte  Carlo  method. 


6.  Conclusions 

A direct  covariance  algorithm  has  been  developed  and  applied  to  the 
circuit  analysis  problem  for  utilization  as  part  of  a general  computer-aided 
statistical  analysis  and  design  capability.  The  advantages  in  both  computa- 
tional speed  and  accuracy  over  the  traditional  Monte  Carlo  technique  have 
been  demonstrated  for  low-noise,  mildly  non-linear  circuits.  In  addition,  a 
procedure  for  accuracy  prediction  has  been  developed  and  applied  to  a typical 
example.  The  incorporation  of  this  direct  covariance  algorithm  into  a digital 
computer  software  package  has  been  described  with  particular  emphasis  on 
its  importance  to  the  user  as  a circuit  analysis  tool  for  preliminary  statistical 
design. 


Appendix 

This  Appendix  presents  the  derivation  of  the  covarianco  matrix  differential 
equation  in  eqn.  (7)  for  the  linear  incremental  oquation  in  oqn.  (3).  Tha 
oxncl  solution  for  8x(t)  may  be  expressed  in  terms  of  its  state  transitlo; 
matrix  d>(t,  /„)  as 

Sx(0  = 0(t,  <0)8x(f0)  + J <!>(<.  T)il(r)8w(r)  th+  J <!>(/,  r)C(r)8eu/r  (21) 

i.  i. 

Recognizing  that  8a  through  random,  is  constant  in  time  and  using  the 
definition  of  Il(t)  from  eqn.  (8),  one  has 

8x(0  = <t>(f,  /„)8x(?0)+  J <!>(/,  t)#(t)8w(t)  <lt  + Il(t)baL 
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Therefore, 

P(t)  = f3{8x(<)8xT(t)} 

= E <D(I,  t0)8x(g+  } <l>(/1T)/i(r)8w(T)</r  + //(/)8aJ 

x |^<D(f,  «0)8x(t0)+  f 4>(<,  t)£(t)8w(t)  rfr  + Z/^JSaJ1  (23) 

Performing  the  indicated  multiplications  in  eqn.  (23)  and  noting  that  8x(i0), 

8w(f)  and  8«  are  uncorrelated  yields  the  result 

P(t)  = <J>(f,  <0)jEf8x(/0)8xT(<0)]OT(f,  /„) 

+ \ \ $(<,  T)B(T)E[S'tt{T)fiWt(p)]BT(p)Q>T(t,  p)  dr  dp 

i,  i. 

+ H(t)E{6aha.'r}HT{t)  (24) 

Using  eqn.  (2)  and  the  sifting  property  of  the  delta  function,  one  obtains 

p(0=<h(<,  gP(<0)a>T(f,  y 

+ 1 n,r)B(T\QjT)BHT)V%r)dr 

i, 

+ H(t)QJP(t)  (25) 


Equation  (25)  provides  the  integral  solution  for  Pit). 
P{t)  from  eqn.  (25)  and  using  the  relationship 


(?<!>(/,  T) 


T) 


However,  by  forming 
(26) 


the  direct  covariance  algorithm  may  be  expressed  in  the  more  convenient 
form  of  tho  matrix  differential  equation  in  eqn.  (7). 
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ABSTRACT 

A useful  sequential  algorithm  Is  developed  for 
handling  state  covariance  matrix  calculations  In 
large-scale  stochastic  filtering  and  analysis  pro- 
blems. A significant  reduction  In  computer  stor- 
age is  obtained  by  segmenting  large-scale  systems 
and  operating  sequentially  on  the  various  subsys- 
tems. This  saving  In  computer  storage  is  due  to 
a procedure  of  dimensioning  Intermediate  Integra- 
tion varlaoles  on  a lower-order  subsystem  basis 
and  re-using  them  from  subsystem  to  subsystem. 

Error  considerations  and  the  amount  of  core  reduct- 
ion achieved  are  discussed,  and  an  example  Is 
presented  to  illustrate  the  sequential  ordering  of 
the  covariance  matrix  calculations. 

1 . INTRODUCTION 

It  Is  Important  to  be  able  to  perform  computa- 
tions sequentially  for  large-scale  systems  to 
avoid  excessive  digital  computer  storage  require- 
ments. For  example,  such  considerations  are 
especially  critical  In  large-scale  air  defense 
missile  system  simulations  where  a variety  of 
operations  must  be  handled  simultaneously  [1,2]. 
Some  of  these  systems  are  so  large  that  Is  Is 
simply  r.ot  possible  to  Implement  the  desired  stoch- 
astic filtering  or  analysis  algorithm  directly  on 
a given  computing  facility.  In  such  cases,  an 
approximate  method  must  be  used. 

The  sequential  algorithm  developed  In  this 
paper  Is  based  on  the  multilevel  systems  concept 
proposed  by  Nesarovlc  [3V  who  partitioned  complex 
systems  Into  simpler  subsystems  to  form  a hierarchy 
of  system  models  for  analysis  and  design  purposes. 
In  [4]  Lefkowltz  described  how  the  multilevel  hier- 
archy approach  had  bean  used  to  solve  particular 
Industrial  problems.  Moreover,  Noton  [5]  applied 
multilevel  systems  theory  to  derive  a coordination 
algorithm  for  a‘ number  of  subsystem  Kalman  estima- 
tors. 

In  the  present  work,  the  overall  system  Is 
segmented  into  several  subsystems  Interconnected 
by  feedforward  ar.J  feedback  paths.  The  analysis 
problem  considered  Is  the  evaluation  of  the  state 
covariance  matrix  at  discrete  points  in  time  from 
Its  matrix  differential  equation.  Using  the  sub- 
system concert,  one  may  partition  the  coefficient 
matrices,  the  Input  covariance  matrix,  and  the 
state  covariance  matrix  to  permit  simplified 
sequential  calculations.  Differential  equations 
for  these  partitioned  segments  are  written  to  re- 
flect self-interacting,  feedforward,  feedback,  and 
Input  terms.  The  numerical  Integration  of  these 
subsystem  covariance  matrix  differential  equations 
Is  performed  sequentially  on  the  digital  computer 
with  a worthwhile  savings  In  computer  storage. 
Results  from  a given  subsystem  calculation  become 
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a part  of  the  forcing  functions  for  connected  sub- 
systems considered  subsequently.  The  reason  for 
the  lower  required  storage  Is  that  Intermediate 
integration  variables  are  dimensioned  on  a lower- 
order  subsystem  basis  and  re-usad  from  subsystem 
to  subsystem.  Moreover,  so«e  subsystem  have 
Inputs  from  only  a few  other  subsystem,  which 
further  simplifies  the  sequential  computations. 

On  the  other  hand,  integrating  the  system  covari- 
ance matrix  differential  equation  In  Its  original 
form  requires  much  larger  dimension  statements  for 
the  Intermediate  variables.  The  reduction  In  core 
storage  Is  a function  of  the  number,  order,  and 
arrangement  of  subsystems,  Including  the  various 
Interconnections  of  feedforward  and  feedback  loops. 

The  cost  of  obtaining  the  reduction  In  core 
storage  requirements  Is  reflected  In  the  increased 
complexity  involved  In  the  ordering  of  calculations 
for  the  sequential  algorithm.  For  those  applica- 
tions where  less  computational  accuracy  Is  accept- 
able, additional  savings  In  computer  storage  and/ 
or  computational  speed  can  be  realized.  An  example 
Is  presented  to  Illustrate  the  sequential  algorithm 
itself  as  well  as  the  Interesting  tradeoffs 
possible  In  Its  implementation  for  large-scale 
systems. 

2.  THE  SEQUENTIAL  ALGORITHM 

Consider  a linear,  time-varying  system  described 
by  the  vector  differential  equation 

x • A(t)'x  + B(t)w  (1) 

where  x Is  the  n-vector  of  system  states,  w is  an 
^-vector  representing  white  noise  Inputs,  and  A(t) 
and  B(t)  are  time-varying  system  matrices.  As 
shown  In  [6-121,  the  state  covariance  matrix  P(t), 
defined  by  P(t)  i E{x(t)xTU)),  satisfies  the  ma- 
trix differential  equation 

t>  • AP  ♦ PTAT  + BQBT  (2) 

where  the  functional  dependence  on  time  t Is  Im- 
plied throughout.  The  Input  covariance  matrix  Q 
Is  defined  by  the  relationship 

E{w(t)wT(T))  • Q(t)«(t-x)  (3) 

Let  a large-scale  system  described  by  (1)  be 
segmented  Into  several  subsystems  as  shown  In-Fig- 
ure 1.  In  the  subsystem  context,  the  matrices  A, 

B,  P,  and  Q may  be  partitioned  as 
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the  third  and  sixth  terms  In  (6).  These  represent 
feedback  paths.  The  seventh,  or  last,  term  repre- 
sents input  noise  date.  Rewriting  (6)  and  suurra- 
rizing  these  observations,  one  has 

P1j  ' A11P1j  + P1jAjj 


Self-Interaction 
1-1  j-1 

+ x Aikpkj + y\ 

k=l  Pi 


P AT 
p1kAJk 


Feed-Forward  Paths 
K N 

+ S A''fcPM  + X PikAjk 

^k'i+1  k-j+1 

v- — 

Feedback  Paths 


Figure  1.  Schematic  Diagram  of  a Large-Scale 
System  Showing  Individual  Subsystem  Connections. 

To  simplify  the  development  which  follows,  it 
is  assumed  that  noise  inputs  are  uncorrelated  with 
each  other  and,  furthermore,  that  each  enters  only 
a single  designated  subsystem  as  shown  in  Figure  1. 
This  assumption  means  that  both  B and  Q are 
diagonal  matrices.  - 

Since  the  matrix  P is  symmetric,  i.e.  P = P , 
one  has  P.s  * Pi..  Therefore,  (2)  may  be  express- 


Pij  1 AilPlj.  + Ai2P2j  + AiNPNj 

+ Pj jAjj  + P2iAj2  + PNiAjN 


where  4jj  is  zero  if  i f j and  unity  if  i = j. 
Equation  (5)  nay  be  conveniently  grouped  as 

fii  ■ y A,kpkj  * Aiipu 


. pT.aT, 

J«  Jj 


N 

j-1 

AikPkj 

+ V PT  at 
A PkiAjk 

k=i+l 

kn 

N 

t ptat 

4 ki  jk 

* “liVli1 

k=j+l 

for  i = 1 , . , 

. .N  and  j = 1 

T T 

The  '-a trices  Pp,  and  Pji  in  the  second  line  of  (6) 
may  be  replaced  by  Pjk  and  Pjj,  respectively, 
since  P is  symmetric.  The  second  and  fifth  terms 
in  (6)  are  the  only  ones  involving  Py.  Moreover, 
the  first  and  fourth  terms  have  as  coefficient 
matrices  entries  from  the  lower  left  of  the  main 
diagonal  of  the  system  matrix  A.  These  terms  re- 
present feedforward  paths.  Elements  from  the 
upper  right  of  the  main  diagonal  of  A appear  In 
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Noisy  Inputs 

What  is  desired  is  to  apply  (7)  sequentially  to 
determine  Pj<  for  all  1 and  all  j.  It  is  partic- 
ularly important  only  to  know  Pm,  but  it  may  be 
shown  that  calculation  for  all  1 and  j is  neces- 


sary to  completely  determine  Pi i . 

A flow  chart  showing  details  of  the  sequential 
algorithm  for  covariance  matrix  calculations  is 
given  in  Figure  2.  Numerical  results  obtained  by 
using  a computer  software  package  developed  from 
Figure  2 are  provided  in  a later  section  of  this 
paper. 


Figure  2.  A Flow  Chart  of  the 
Sequential  Algorithm. 
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3.  ERROR  CONSIDERATIONS 

The  use  of  sequential  calculations  makes  avail- 
able current  values  of  subsystem  covariance  ma- 
trices only  for  feedforward  terms  in  suhequent 
equations.  Previous  values  must  be  used  is  approx- 
imations in  feedback  terms,  which  is  equivalent  to 
having  samplers  and  zero-order  hold  devices  in 
certain  feedback  loops  in  covariance  matrix  calcu- 
lations. 

To  illustrate  the  nature  of  these  approximations 
consider  the  system  of  Figure  3,  which  has  a single 
feedback  loop  around  N cascaded  subsystems.  Many 
of  the  elements  of  the  A matrix  are  zero  for  this 
given  system  structure.  In  fact,  except  for  the 
element  Aj^,  which  is  due  to  the  single  feedback 
loop,  only  the  main  diagonal  elements  and  those 
imnediately  below  and  adjacent  to  the  main  diagonal 
are  non-zero.  Figure  4 shows  a block  diagram  for 
the  state  covariance  matrix  elements  and  indicates 
that  the  single  feedback  loop  in  Figure  3 intro- 
duces a feedback  loop  for  every  row  of  the  covari- 
ance matrix.  Let  N=5  for  a particular  system. 


Figure  3.  A Simple  Feedback  System. 


Figure  4.  Interrelationships  for  Elements  of 

the  Partitioned  State  Covariance  Matrix 
for  the  System  of  Figure  3. 


ror  the  jth  row,  the  previous  value  of  Pjfj  is  need- 
ed. For  example,  to  calculate  P44  one  may  write* 

^44  = A44P44  + P44A44  * A43P34  + P34A43 
4 B44Q44B44 

P34  = A33P34  + P34A44  + A32P24  + P33A43 

^4  = A22P24  + P24A^4  + A21P14  + P23aJ3 

?14  = A11P14  + P14A44  + **13*43  + A15P45  (8) 

In  interpreting  (8),  one  should  note  that  the  four 
matrix  equations  must  be  applied  sequentially  in 
reverse  order,  beginning  with  the  last.  The 
matrices  P13,  P23,  and  P33  are  known  from  calcula- 
tions for  the  previous  subsystem,  i.e.  subsystem 
#3.  Observe  that  the  last  equation  in  (8)  has  the 
term  AjjPas,  which  is  obtained  from  computations 
at  the  previous  time  interval  and  used  as  an  approx- 
imation for  the  current  interval. 

This  section  has  shown  the  kind  of  approximation 
needed  for  applying  the  sequential  algorithm.  The 
next  section  describes  the  reduction  in  computer 
storage  for  the  algorithm. 

4.  REDUCTION  IN  COMPUTER  STORAGE 

There  Is  a certain  amount  ot  digital  computer 
core  required  for  simply  storing  the  matrices  A,  B, 
Q,  and  P.  With  some  important  exceptions,  these 
matrices  are  needed  reyardless  of  the  method  being 
used  to  solve  the  matrix  differential  equation  (2). 
Of  major  concern  here  is  the  comparison  of  addi- 
tional dimensioned  core  locations  required  by  the 
sequential  algorithm  and  by  the  direct  evaluation 
of  (2)  using  standard  numerical  integration  form- 
ulas. 

Consider  the  case  of  m cascaded  subsystems  with 
each  of  order  r.  Euler's  Method  would  require 
(mr}2  additional  locations,  i.e.  for  the  P matrix, 
by  direct  evaluation.  However,  only  2 m2  + 2 r2 
additional  locations  are  needed  for  the  sequential 
algorithm.  If  m is  large  and  also  much  greater 
than  r,  then  the  savings  in  core  can  be  significant. 
Moreover,  the  additional  core  for  RK2,  I.e.  the 
standard  second-order  Runge-Kutta  formula,  is 
3(mr)2  by  direct  evaluation  and  2 m2  + 4 r2  by  the 
sequential  algorithm.  Corresponding  core  require- 
ments for  RK4  are  3(mr)2  and  3 m2  + 4 r2,  respect- 
ively. Figure  5 shows  plots  of  p versus  m,  where 
p is  the  ratio  of  additional  core  required  by 
direct  evaluation  to  the  additional  core  required 
by  the  sequential  algorithm.  These  curves  should 
be  viewed  as  rough  estimates,  rather  than  ex^ct 
ratios,  since  use  of  symmetry  conditions  and  other 
more  efficient  programing  techniques  would  alter 
these  curves  somewhat.  It  should  be  pointed  out 
that  if  a large  amount  of  core  is  required  for  the 
system  matrices  and  for  program  operations,  then  a 
dramatic  per  cent  reduction  1r.  the  additional  core 
required  by  the  sequential  algorithm  may  be  de- 
emphasized  when  considered  on  the  basis  of  total 
core  requirements. 
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Figure  5.  Ratio  (p)  of  Additional  Core  Needed  by 
Direct  Evaluation  to  Sequential  Algorithm 
Versus  Number  (m)  of  Subsystems. 

5.  AN  EXAMPLE 

The  sequential  algorithm  was  compared  with  the 
direct  evaluation  method  on  an  open-loop  system 
consisting  of  several  cascaded  first-order  subsys- 
tems. The  direct  method  used  RK2  for  numerical 
integration,  and  the  sequential  algorithm  used  RK4. 
It  was  verified  first  that  the  two  methods  gave 
essentially  identical  numerical  results  for  ten 
subsystems.  Moreover,  these  results  agreed  with 
100  Monte  Carlo  simulation  runs  performed  on  the 
same  tenth-order  system.  The  procedure  for  compar- 
ing total  core  requirements  was  to  increase  the 
number  of  subsystems  considered  by  each  method 
until  a preset  level  of  100K  bytes  of  core  was 
exceeded.  It  was  found  that  the  direct  evaluation 
method  could  handle  only  about  45  cascaded  subsys- 
tems. However,  the  sequential  algorithm  could  be 
used  for  as  many  as  130  subsystems. 

6.  CONCLUSIONS 

A sequential  algorithm  has  been  developed  for 
reducing  digital  computer  core  requirements  in  co- 
variance  matrix  calculations.  The  associated  com- 
putations are  performed  on  a subsystem  basis,  and 
integration  variables  are  re-used  from  subsystem  to 
subsystem.  A particular  example  has  demonstrated 
that  a significant  savings  in  core  requirements 
can  be  realized  by  the  new  algorithm. 
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Abstract— A generalized  approach  involving  concepts  from  optimization  theory  is  developed  for 
< realizing  optimal  digital  simulations  for  linear,  time-varying,  continuous  dynamical  systems  having 

1 random  inputs  by  modifying  discrete  input  signal  variances.  The  minimization  of  a cost  functional 

based  on  the  state  covariance  matrices  of  the  continuous  system  and  its  discrete  model  leads  to  a 
:*vo-point  boundary  value  problem  which  can  be  solved  by  known  numerical  techniques.  The 
I result  is  a systematic  procedure  for  determining  optimal  digital  simulations  under  the  constraints 

i that  the  numerical  integration  formula  and  integration  step  size  have  been  specified  in  advance. 

| An  example  is  presented  to  illustrate  the  procedure,  including  a verification  using  Monte  Carlo 

simulation  runs. 


I INTRODUCTION 

Increased  digital  and  hybrid  computer  capabilities  in  recent  years  have  resulted  in  an 
j even  stronger  reliance  on  the  Monte  Carlo  approach  for  statistical  analyses  of  large-scale 

j dynamical  systems[l,  2].  Improved  digital  random  number  generators[3,  4]  have  already 

| been  developed  for  producing  more  precise  statistical  inputs.  Emphasis  has  also  been 

j placed  on  developing  more  accurate[5],  as  well  as  more  efficient[6, 7],  numerical  algorithms 

i for  digitally  integrating  large  systems  of  continuous  differential  equations.  Moreover,  the 

; rapidly  expanding  field  of  digital  signal  processing  has  only  recently  opened  up  several 

! new  possibilities  for  handling  continuous  systems  efficiently  via  digital  representations 

| [8- 10].  Many  of  the  previous  works,  e.g.  [8]  and  [I  I J,  are  based  on  matching  the  frequency 

! spectra  of  continuous  systems  and  discretized  models.  Although  more  extensive  time- 

i domain  techniques  have  been  reported  in  the  litcrature[12],  only  the  simple  rectangular. 

| or  Euler,  approximation  is  in  common  use  for  discretizing  continuous  systems[l  3-1 6]. 

This  paper  utilizes  concepts  from  optimization  theory  to  derive  a time-domain  solution 
to  the  problem  of  determining  optimal  digital  representations  for  random  linear  con* 

, tinuous  systems  having  integration  constraints.  The  stochastic  formulation  reduces  to  a 

deterministic  two-point  boundary  value  problem  in  the  calculus  of  variations,  which  can 
be  solved  by  known  techniques.  Such  integration  constraints  can  occur,  for  example, 
when  large-scale  systems  are  being  simulated  on  medium-sized  hybrid  facilities[l7].  If  the 
analog  equipment  is  seriously  limited,  then  a few  of  the  integrations  must  be  performed 
digitally.  In  these  cases,  the  integration  method  and  corresponding  step  size  are  often 
constrained  quite  severely.  The  purpose  of  this  paper  is  to  present  a systematic  procedure 
for  modifying  the  digital  simulation  input  signals  to  yield  optimal  results. 
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PROBLEM  FORMULATION 

Consider  a continuous,  linear,  lime-varying  system  described  by 

x(f)  = Amt)  + «(/)«,(/)  (I) 

where  x(r)  is  an  n-veetor  representing  the  system  slate,  w,(t)  is  an  m-vector  of  white  noise 
input  disturbances,  and  /!{/)  and  B(f)  arc  n by  n and  « by  m system  matrices,  respectively. 
The  white  noise  input  wt(r)  has  a mean  of  zero  and  a covariance  matrix  Qc(t)  defined  by 

£{w((/)w^t)|  = QJi)oJ,  - i)  (2) 

where  <5a(  - ) is  the  Dirac  delta  function.  Let  a discrete  model  of  the  continuous  system  (1) 
have  the  form 


ylU*  i)  — i » 1 . h)wAh)  (3) 


where  y(r4j  is  an  n-vector  representing  the  model  state  at  time  t4  = kT,  Wj(f4)  is  an  m-vcctor 
input  sequence  of  random  numbers,  and  <l»d  and  //d  are  n by  n and  n by  m time-varying  model 
matrices,  respectively.  The  zero-mean  model  input-  w^r*)  has  a covariance  matrix  QAtk) 
given  by 


EfrMwftj)}  =|^A> 

The  cost  functional  is 


for  k—j 
for  k # j. 


(4) 


J[QM)  = Trace  V |[Pr(rt+ ,)  - f»A  , ,)]rj?[Pf(r4. ,)  - Pd(f4+ ,)]  (5) 

i*=o 

where  R is  some  positive  semidefinite  n by  n matrix  and  P((t)  and  Pd(f4)  are  defined  by 

PAD  £ H{x(()xr(t)}  (6) 

PAID  it  £{y(h)f(h)}-  (7) 

The  problem  is  to  determine  Q/tk)  such  that  the  cost  functional  J in  (5)  is  minimized  for 
specified  model  matrices  Od  and  Hd  in  (3)  corresponding  to  a given  numerical  integration 
formula  and  integration  step  size  T. 


DEVELOPMENT  OF  OPTIMAL  DIGITAL  SIMULATIONS 
The  approach  to  be  utilized  here  is  to  determine  the  matrix  difference  equation  for 
Pd(fn ,)  in  terms  of  Pd(t4)  and  the  input  covariance  matrix  QAh)-  Thereafter,  the  cost 
functional  in  (5)  may  be  minimized  with  respect  to  QAh)  by  invoking  known  results  from 
optimization  theory. 

Using  the  model  difference  equation  (3)  in  the  definition  (7)  yields 

p ADt  i)  — £{y(hi+i)y7(fj!+i)} 

“ Ett^yfr*)  + 7/dWd(f4)][<Ddy(i4)  + tfdwd(f4)]r} 

PAh+  l)  = l 1 h)P 1 > Ik)  + ^dUk+l  • fn)QdOk)77j(l|k+  I > <*)•  (8) 

Therefore,  the  optimal  digital  simulation  problem  originally  stated  has  been  reduced  to  a 
two-point  boundary  value  problem  in  the  calculus  of  variations.  It  is  required  to  minimize 
the  cost  functional  (5)  subject  to  the  matrix  difference  equation  constraint  given  by  (8). 
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Before  proceeding  with  this  optimization  solution,  it  is  instructive  for  comparison 
purposes  to  determine  the  corresponding  difference  equation  for  PA»i)-  The  exact  ex- 
pression for  Pf(t)  may  be  obtained,  as  shown  in  [13],  by  solving  for  x(t)  from  (1)  and  sub- 
stituting the  result  into  the  defining  equation  (6),  i.e. 

I\U\  = £;x(f)xr(/)! 


= pjj^A'oMfo)  + | OA0AR0A  j 

■ fo)x(fo)  + | ♦A  t)B(i)wf(t)dzj  j. 


■ |^>A  foWfo)  + J fyU,  t)B(i)wf(t)dzJ  j.  (9) 

Performing  the  indicated  multiplications  in  (9)  and  noting  that  x(i0)  and  wt(r)  are  un- 
corrclatcd.  one  has 

Pe(i)  = <t>c(t,to)E{*0o)xr(to)W0,to) 


f f <t>c(t,  z)B(z)£{wt(z)w’ (/))}Br(p)<I»T(f,  p)dzdp. 
Jf0  Jto 


Using  (2)  and  the  sifting  property  of  the  delta  function  gives,  for  t = tk+ , and  f0  = f»,  the 
recursive  relationship 

f*A+ 1)  = ®((h+ 1 » fiAA^/A^  i » h) 


+ r*'  ^4. . x)B(x)Qc(x)BTUmh+  u x)dz. 

•'ll! 


The  matrix  equation  in  (l  1)  is  not  a constraint  equation  for  the  posed  optimization  prob- 
lem because  PA+ ,)  is  not  a function  of  the  optimization  variables  contained  in  the  matrix 
QAh)-  On  the  contrary,  PA  + ,)  is  simply  treated  in  (5)  as  some  known  time-varying  matrix 
which  is  to  be  modeled  by  PA+ ,). 

It  is  known  from  the  calculus  of  variations  in  optimization  theory  that  the  solution  to 
the  posed  problem  requires  the  introduction  of  an  n by  n matrix  Ad(ft)  of  Lagrange  multi- 
pliers for  Pd(t J.  Moreover,  /A)  satisfies  a matrix  adjoint  difference  equation  which  has 
the  boundary  condition 

W = 0 (12) 

where  tK  is  that  terminal  time  indicated  in  (5).  A convenient  method  for  obtaining  the 
adjoint  equation  is  to  define  the  Hamiltonian  //  as 

H = Trace{j(PA+ ,)  - PA, l)]TR[Pe(rJl  + ,)  - PA,,)]  + PA,.)/J(U.,)}.  (13) 
It  has  been  shown[13]  that  the  matrix  adjoint  equation  is 


2A)  — 


oPM 


Equation  (8)  must  be  substituted  into  (13)  before  the  indicated  partial  differentiation  in 
(14)  is  performed.  Finally,  the  optimal  value  of  QA)  satisfies 


05) 
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The  resulting  two-point  boundary  problem  for  determining  the  optimal  digital  simulation 
involves  solving  simultaneously  the  equations  in  (8).  (14)  and  (15)  with  the  boundary  con- 
ditions in  (12)  for  2<(f*)  and  known  initial  conditions  for  PJtk),  i.e.  P/to)  = P*a- 
It  should  be  observed  that  a degenerate  case  of  the  optimization  problem  occurs  when 
the  number  (m)  of  random  inputs  is  at  least  as  large  as  the  number  (n)  of  system  states, 
i.c.  m £ n.  In  such  a case,  the  cost  functional  in  (5)  becomes  zero.  If,  in  addition,  the  model 
is  permitted  to  utilize  the  state  transition  matrix  (STM)  method  of  integration[7],  then 
Qj(tk)  becomes  Qc{tk)IT,  as  shown  in  Ref.  18. 

OPTIMAL  NUMERICAL  RESULTS 

As  a particular  example  for  purposes  of  numerical  comparisons,  consider  the  second- 
order  system  given  by 

x,  - x* 

x2  * -2X|  - 3x2  + wc(t)  (16) 

where  x,(0)  * x2(0)  = 0 and  wc(t)  is  a zero-mean  white  noise  process  with  Qc  * 1.  Let  the 
discrete  model  matrices  Qj[tk+ , , tk)  and  Hji th+ , , tk)  in  (3)  be  considered  for  two  separate 
cases  corresponding  to  the  use  of  the  Euler  and  second-order  Runge-Kutta  (RK2)  inte- 
gration formulas  on  (16).  Since  (16)  is  a linear  time-invariant  system,  <D,  and  Hd  are  functions 
only  of  the  integration  step  size  7,  where  T=  f*+,  - tk.  For  Euler’s  formula,  these 
matrices  arc 


4»/D  = 


wn- 


0..(T)  <MT)' 

4>2l(T)  $2  l{T)i 

ht(T)\  /0\ 


-2T  1 - 37 


and  for  the  RK2  formula 


<W  = 


1 - 72 


7-  I-572 


-27+  372  1 - 37  + 3-572j 

0-572  \ 

7-  i-572)' 


Let  the  cost  functional  J in  (5)  be  defined  by 

f = : E {[Ptii(fA+i)  ~ Pm(l*+i)]2  + [Pf2i(U+i)  ~ Pm(f*u)]1}  0^) 

* k-0 

where  K is  selected  in  various  parts  of  this  problem  such  that  the  product  KT  is  approx- 
imately 5 sec. 

The  component  equations  for  Pd  corresponding  to  (8)  are 

Pi m(fE+i)  = <PiiPdii(tk)  + tyu'PnPdiiih)  + 012  P<ni(h)  + hiQdih) 

PduOl+l)  = 4>i\4>uPdn(h)  + (011022  + 01202l)P<M2Un) 

+ <Pl2<f>22Pd22(tk)  + hJhQdih) 

Pm(U+i)  = 02iP<ni(i*)  + 2<f>2i(f>22Pdi2(h)  + ll>22Pd22(h)  + hlQd{lk) 


(20) 
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with  each  having  zero  initial  conditions.  The  Hamiltonian  in  (13)  is 
ff  = K*u]2  + J[Tj2]2  + [^iiP4ii(4)  + 2<^u^iiPai2(f*) 

+ 4>nPuiitd  + A|Q/4)]2jii(4+  t)  + (^ti^2iP«ni(4)  + ($11^22  + $i2$2i)Pm(4) 

+ ^i2^22Pm(4)  + AiM2/4)]2*i2(4+i)  + W>2iPm(4)  + WiAnPu  2(4) 

+ thPuiih)  + kjC/4)]2«2(4) 
where  Yt , and  Y22  are  defined  as 

In  * Peii(4+i)  — ^ttPittW  ~ 2^n0i2Pau(fi)  — •PiiPmkh)  — k*C/4) 

*22  **  Pc2i(ht  1)  — 4>liPiu(h)  - tyntiiPdiiih)  — $§2Pm(4)  ~ *16/4)- 
Moreover,  the  component  equations  for  the  adjoint  matrix  Xd  in  (14)  are 

2411(4)“  « ttt*  — ^tt£Tji]  — <j)2iiY22]  + <Au24n(4+i) 

oPauUt) 

+ ^12^21^12(4+1)  + $ii2m(4+i) 

2412(4)  “ r — mi7\  = ~2<l>u<t>n[Yu)  — 2<^2i^22[T22]  + 2^ll$122au(4+i) 
0Pan(4) 

4-  (<l>u<f>n  + ^12^21)2^12(4+1)  + 2^2 1^22^422(4+ 1) 

■2-422(ffc)  * m -$12[Tu]  ” + ^122i!l(4+|) 

+ ^12^222ai2(4  + l)  + ^222a22(4+|)- 

The  standard  formulation  for  the  two-point  boundary  value  problem  requires  the  in- 
version of -the  three  equations  in  (23)  to  yield  2/4+0  >n  tcrms  of  2/4)  and  P/4).  Using 
(15)  then  gives  C/4)  as  a function  of  2/4+0  and  P/4),  which  can  further  be  written  in 
terms  of  Pd  and  Xd  at  time  4,  However,  the  split  boundary  conditions  at  f0  and  tK  makes 
an  approximate  iterative  solution,  such  as  the  gradient  technique,  highly  desirable. 

One  version  of  the  gradient  technique[l  3]  utilizes  the  equations  in  (20)  and  (23)  directly 
without  inverting  (23)  or  solving  (15)  for  C/4)-  Letting  Q/ 4)  « QJT  for  the  first  iteration, 
the  Pd  component  equations  in  (20)  were  solved  forward  in  time.  Thereafter,  (23)  was 
solved  backwards  in  time  using  the  boundary  conditions  in  (12).  The  value  of  C/4)  for  the 
next  iteration  was  obtuined  by  adding  to  the  previous  value  the  term  -a[3H/3C/4)], 
which  had  been  evaluated  for  the  Pd  and  Xd  of  the  last  iteration.  For  this  example,  a pro- 
Dortionality  constant  a of  200  to  500  resulted  in  the  convergence  of  this  repetitive  process 
in  ten  iterations  or  less  for  most  of  the  cases  considered.  The  average  optimal  values  of 
Qj  obtained  by  this  gradient  procedure  are  presented  in  Table  1,  since  the  optimal  C/4) 

Table  I.  OptimaUiicrete  model  input  variances  Q,  for  several  cases 


Numerical 
integration  formula 

Step  size 
(T) 

Number  of  step* 
(K) 

Average  optimal 
QAU) 

Euler 

0-1 

50 

8-1 

Euler 

0-2 

25 

3-3 

RK2 

0-2 

25 

5-6 

RK2 

0-3 

17 

4-3 

(21) 

(22) 
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for  these  cases  were  within  10  per  cent  of  these  averages  for  all  tk.  Observe  that  the  optimal 
Qj  for  these  constrained  discrete  model  eases  varied  considerably  from  the  unconstrained 
model  solutions  (Qd  ~ Q(iT).  For  example,  the  average  optimal  Qd  for  Euler’s  method 
with  T = 01  was  8-1.  while  ()d  for  the  unconstrained  problem  was  10.  Figure  I shows  the 
cost  functional  J for  the  tabulated  cases  as  a function  of  tk.  These  curves  verify  the  expected 
result  that  a larger  J is  obtained  when  the  discrete  model  utilizes  a less  accurate  integration 
formula  and  a larger  step  size. 

Variances  for  both  .v,  and  .v2  arc  plotted  as  functions  of  lime  in  Fig.  2 for  Euler’s  method 
with  T - 01.  Nonoptimal  solutions  obtained  by  arbitrarily  selecting  Qd  = QeIT  = 10 
show  good  agreement  between  , and  pcl  t but  extremely  poor  results  for  representing 
Pc2i  by  Pw  On  the  other  hand,  corresponding  curves  obtained  by  using  the  optimal 


k2.t.03//EuI*,’t,( 

// 

//  Euler, T*0[/< 


^ RK2,  T«0-2 

12  3 4 5 

Time,  sec 

Fig.  1.  Plots  of  J vs  time. 


Nonoptlmol  pCJ? 
using  Qa  • 10 


Optlmol  pa2j 


Nonoptlmol  pa|| 
"V-  Opflmol  p 


Time,  sec 

Fig.  2,  A comparison  of  optimal  and  nonoptimal  solutions  for  ftulcr’s  method  with  T = 0-1. 
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values  of  QJ[tk)  distribute  the  error  more  evenly  between  the  two  main  diagonal  components 
of  Pd,  which  is  necessary  to  minimize  the  cost  functional  in  (19).  Monte  Carlo  simulation 
runs  were  ensemble-averaged  on  the  digital  computer  to  verify  these  optimization  results. 
Figure  3 shows  that  100  Monte  Carlo  runs  were  insufficient  for  both  the  constrained 
discrete  model  using  Euler’s  method  with  T * 0-1  and  the  unconstrained  problem  using 
a more  accurate  integration  formula  and  smaller  step  size.  For  this  example,  Monte  Carlo 
runs  for  the  unconstrained  problem  utilized  RK2  with  T - 0 05,  which  yielded  a negligibly 
small  cost  functional  (J  as  0)  in  the  gradient  optimization  procedure.  Following  the 
guidelines  specified  in  Refs.  19  and  20,  it  was  found  that  1000  Monte  Carlo  runs  gave 
results  which  agreed  quite  well  with  the  variances  determined  in  Fig.  2. 

EXTENSIONS 

The  optimal  digital  simulation  techniques  developed  in  this  paper  for  specified  and 
Ht  caneasiiy  be  extended  to  permit  th.ie  discrete  model  matrices  to  have  free  optimization 
parameters.  The  resulting  formulation  would  require  the  optimal  selection  of  both  the 
discrete  input  covariance  matrix  and  certain  discrete  model  parameters  in  and 
Ht.  This  additional  flexibility  in  the  optimization  procedure  would  result  in  a reduction 
in  the  cost  functional  by  an  amount  depending  upon  precisely  how  these  model  parameters 
affect  the  dynamical  system  response.  A special  case  of  this  formulation  has  been  con- 
sidered in  [18]. 

The  extension  of  these  optimization  results  to  mildly  nonlinear  systems  can  be  achieved 
by  utilizing  linearized  variational  equations  about  a nominal  solution.  As  shown  in  [20], 
the  application  of  the  error  propagation  algorithm  in  equation  (11)  for  an  approximate 
analysis  of  low-noise,  mildly  nonlinear  systems  has  yielded  acceptable  results.  Further 
digital  simulation  improvements  might  be  realized  by  simultaneously  optimizing  the 
nominal  Solution  and  the  discrete  linearized  variational  model[21].  Finally,  it  appears  that 
the  concepts  developed  here  for  optimal  digital  simulations  might  also  be  extended  for 


Tim*,  tie 

Fie.  3.  Monte  Carlo  simulation  results. 
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the  optimal  discrete  implementation  of  stochastic  filtering  algorithms  in  continuous 
dynamical  systems[22]. 


CONCLUSIONS 

Known  optimization  techniques  have  been  applied  to  obtain  optima!  digital  simu- 
lations for  random  linear  systems  having  integration  constraints.  The  developed  pro- 
cedure depends  upon  optimally  selecting  the  input  covariance  matrix  Q/tk)  for  prespecified 
discrete  model  matrices  corresponding  to  fixed  numerical  integration  formulas  with  a 
given  step  size.  An  example  including  Monte  Carlo  simulation  runs  has  been  presented  to 
demonstrate  the  improvements  over  arbitrary  nonoptima!  solutions. 
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Abstract 


Direct  methods  for  handling  noise  propagation  problems  in  large- 
scale  nonlinear  systems  are  examined  from  the  viewpoint  of  computability 
and  efficiency.  Comparisons  are  made  between  a fixed  configuration 
method,  the  covariance  analysis  describing  function  technique,  and  the 
variational  covariance  algorithm.  Initially,  the  different  techniques 
are  described  with  a particular  emphasis  on  their  advantages  and  dis- 
advantages for  large-scale  nonlinear  systems.  Thereafter,  a combination 
of  the  techniques  is  applied  to  a thirty- third  order  air  defense  missile 
system.  The  Monte  Carlo  simulation  technique  is  then  used  to  establish 
the  validity  of  the  numerical  results  for  the  combined  direct  algorithm. 

Introduction 


Early  work  on  noise  propagation  in  dynamical  systems  focused  on 
the  use  of  the  Monte  Carlo  technique  in  which  large  numbers  of  simulation 
runs  were  ensemble-averaged  to  obtain  statistical  results.  Since  these 
Monte  Carlo  runs  were  often  performed  on  the  digital  computer  because 
of  accuracy  considerations,  the  basic  problems  were  (1)  the  digital 
generation  of  a sequence  of  pseudo-random  numbers  to  serve  as  a random 
input  to  the  given  system,  (2)  the  sampling  problem  inherent  in  represen- 
ting continuous  systems  and  signals  digitally,  and  (3)  the  determination 
of  the  number  of  simulation  runs  needed  for  acceptable  statistical  accuracy. 
Chambers  [1]  developed  mixed  congruential  and  multiplicative  recurrence 
formulas  for  generating  pseudo-random  numbers  on  the  digital  computer. 

The  optimal  discrete  representation  of  continuous  input  signals  has 
been  considered  in  [2],  It  u,  shown  in  [3]  and  [4]  that  at  least  1,000 
simulation  runs  are  required  for  statistical  accuracies  on  the  order  of 
two  per  cent  in  certain  applications.  A more  modern  approach  to  the 
noise  propagation  problem  is  based  on  computing  the  desired  statistical 
information  directly.  The  new  approach  has  resulted  in  several  direct 
algorithms  which  are  particularly  amenable  to  digital  computation  based 
on  accuracy,  computational  speed,  computer  storage,  and  algorithm  complexity. 

This  paper  presents  a state-of-the-art  survey  of  direct  noise  propaga- 
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tion  techniques  for  large-scale  nonlinear  systems.  Comparisons  are  made 
between  a fixed  configuration  method,  the  covariance  analysis  describing 
function  algorithm,  and  the  variational  covariance  algorithm.  After 
examining  the  relative  merits  of  the  three  direct  methods,  a combined 
algorithm  is  applied  to  provide  useful  results  for  a thirty- third 
order  system. 


System  Description 

Consider  a nonlinear  dynamical  system  described  by 

x = f(x,  u(t),  w(t),  B,  t)  (1) 

where  x is  the  n-dimensional  state  vector,  i[(t)  is  an  r-vector  of  non- 
random  inputs,  w(t)  is  an  m-vector  of  random  processes,  (Ms  an  -t-vector 
of  random  bias  inputs,  and  t is  trie  independent  variable  representing 
time. 


The  input  noise  vectors  w(t)  and  B have  mean  values  specified  by 
nw  and  ng  and  covariances  matrices  Qw(t)  and  Q^,  respectively.  These 

may  be  defined  mathematically  as  ~ ” 

ECw(t)i  4 nw(t) 

E{£)  = ns't)~ 

e yt))(w(T)  - yt)]T) 

E {(6  - ne)(6  - ns)T}  = qb 

where  6(*)  represents  the  impulse  function. 

The  problem  is  to  utilize  direct  noise  propagation  techniques  to 
obtain  statistical  information  about  the  system  state. 

The  Fixed  Configuration  Method 

The  fixed  configuration  method  developed  by  Zirkle  and  Clark  [5] 
is  an  extension  of  deterministic  variational  methods  to  stochastic  systems. 
Described  as  a variational-averaging  technique,  this  method  requires 
that  an  initial  assumed  solution  be  an  explicit  function  of  time  with 
parameters  being  random  variables.  The  selection  should  be  made  such 
that  statistical  properties  of  the  assumed  solution  are  approximately 
the  same  as  the  statistical  properties  of  the  system  response. 

Zirkle  and  Clark  assumed  a solution  of  the  form 


A (2) 

= Qw(t)  6(t-x) 


£(t)  = £(R,t)  (3) 

where  R is  a j by  k matrix  of  random  variables  used  in  approximating 
the  system  response.  Their  criterion  for  selecting  R was 

/ 2 Cfi(x»u(t),w(t),B,t)  - k.]  6R..dt  = 0 

*1  ' J 6R3k  °k 


(4) 
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for  j = 1,  ...,  n and  k = 1,  ....  m,  where  t-j  and  t2  indicate  the  specific 

time  interval  of  interest.  As  an  example,  Zirkle  and  Clark  considered 

x + Wq  x + ex'5  = F(t)  with  an  assumed  form  in  (3)  of  R(t)  = R cos  wt. 

The  input  F(t)  was  a zero-mean,  unity- variance,  Gaussian,  periodically 
stationary  random  process.  Equation  (4)  became 
,0+l)T 


X 


iT 


op  3 3 

[(o)„  - to  )R  cos  tot  + eR  cos  cot 


F(t)]6R  costot  dt  = 0 

(5) 


where  T = 2tt /to.  The  resulting  algebraic  equation  was 

| eR3  + (w2  - to2)  R = C (6) 

where  C is  the  average  of  F(t)  cos  tot  over  the  period  of  interest  T. 
Therefore,  the  probability  density  function  of  C and  the  nonlinear  trans- 
formation in  (6)  could  be  used  to  determine  the  probability  density  function 
of  R and,  hence,  the  desired  result  in  (3).  Zirkle  and  Clark  reported 
an  error  of  less  than  9%  in  the  mean-squared  value  of  the  response  am- 
plitude for  toQ  = 1 , to  = 0.6,  and  e = 1/16. 

The  main  disadvantage  is  the  problem  of  choosing  the  form  of  the 
assumed  solution,  which  may  be  overcome  for  a particular  application 
by  a preliminary  knowledge  of  the  physical  system  behavior  [6].  More- 
over,it  is  quite  difficult  to  implement  this  algorithm  for  large-scale 
systems  on  the  digital  computer.  The  primary  advantage  is  that  the 
complete  state  probability  density  function  is  available  from  the  procedure. 


The  Describing  Function  Method 


Another  direct  method  for  noise  propagation  is  the  covariance  analysis 
describing  function  technique,  which  utilizes  a statistical  linearization 
of  a given  nonlinearity  subject  to  pre-specified  (usually  Gaussian)  input 
waveforms  [7,8].  The  result  yields  a quasilinear  approximation  of  the 
transfer  function  of  the  nonlinearity,  which  is  then  used  in  the  well- 
known  covariance  propagation  equation  for  linear  systems. 


The  differential  equations  for  the  mean  2^(t)  and  covariance  matrix 
of  P(t)  of  the  quasilinear  system  state  are 


* NxN<*trp>  *N  + \ 


P = AP  + PA1  + Q, 


(7) 


w 


where  N (xm>P)  and  A are  matrix  describing  functions  for  the  mean  and 
random  signals.  These  matrices  are  defined  as 

(2VP)  = 

A = E{f(x,t)  6x"^  } P"^ 


(8) 
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where  it  has  been  assumed  that  the  state  x is  the  sum  of  its  deterministic 
mean  x^  and  a random  part  6x.  The  formulation  in  (7)  treats  the  system 

x = f(x,t)  + w(t)  (9) 

rather  than  the  more  general  system  in  (1). 

The  advantage  is  that  nonlinear  effects  are  utilized  in  a linearized 
framework  for  a fast  and  efficient  calculation  of  the  covariance  matrix 
associated  with  the  system  variables.  The  main  disadvantage  Is  that 
large-signal  linearization  techniques  are  applied  to  average  statistical 
information  about  the  nonlinearity.  The  describing  function  utilizes 
the  nonlinear  elements  directly  to  yield  noise  propagation  results,  whereas 
the  fixed  configuration  method  requires  an  assumed  form  of  the  system 
response  over  a given  time  period.  A third  approach  based  on  linearized 
incremental  variations  about  nominal  operating  conditions  Is  examined 
in  the  following  section. 

Variational  Covariance  Algorithm 

The  third  method  to  be  considered  is  the  variational  covariance 
algorithm  which  uses  sufficiently  small  variations  about  the  noise-free 
solution.  The  coefficients  of  the  linearization  matrices  are  updated 
during  each  integration  Interval  whien  applied  to  large-scale  nonlinear 
systems.  This  technique  was  applied  by  Kuhnel  and  Sage  [9]  for  sensitivity 
equations  about  a nominal  flight  path  due  to  trajectory  initial  condition 
dispersions  and  random  system  variations.  The  direct  and  adjoint  methods 
were  used  by  Irwin  and  Hung  [10]  for  evaluating  the  state  covariance 
algorithm  for  large-scale,  nonlinear  dynamical  systems. 

It  is  assumed  that  the  input  noise  disturbances  cause  sufficiently 
small  deviations  6x(t)  about  the  (noise-free)  nominal  solution  XjJt) 
to  permit  linearization.  Expanding  (1)  in  a Taylor  series  about" 

Xfl(t)  and  neglecting  higher-order  terms  above  the  first  yields 

6x(t)  * A(t)6x(t)  + B(t)6w(t)  + C(t)5£  (10) 

where  6m  and  66  are  deviations  from  their  respective  means,  and  A(t), 

B(t) , and  C(tJ~ are  defined  as  the  first  partial  derivatives  of  f(*) 
with  respect  to  x»  w,  and  6 , respectively.  These  derivatives  are  evaluated 
at  the  nominal  conditions  Tn  each  case.  The  resulting  variational 
covariance  algorithm  is  given  by 

P(t)  = A(t)P(t)  + P(t)AT(t)  + B(t)Qw(t)6T(t) 

T t"*  W) 

+ C(t)  QgH  (t)  + H(t)QgC  (t) 

where  P(t)  is  the  state  covariance  matrix  and  H(t)  is  the  integral  of 
the  weighting  pattern  associated  with  C(t). 

Rowland  and  Holmes  [4]  showed  that  the  variational  covariance  algorithm 
can  be  applied  to  mildly  nonlinear  systems  with  acceptable  results  by 
using  linearized  incremental  equations  about  the  noise-free  solution.  This 
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basic  algorithm  tends  to  yield  unsatisfactory  results  for  highly  non- 
linear systems,  but  the  technique  may  be  combined  with  the  other  methods 
described  in  this  paper  for  acceptable  results. 

A Combined  Direct  Algorithm 

The  variational  covariance  algorithm  has  been  combined  with  the 
describing  function  approach  to  yield  improved  noise  propagation  results 
for  large-scale  systems.  Such  a technique  is  useful  for  handling  state- 
dependent  switching  nonlinearities.  The  input  density  function  to  the 
nonlinearity  is  assumed  to  be  Gaussian,  and  the  output  density  is  determined 
by  known  nonlinear  transformation  methods.  The  variance  of  the  output 
signal  may  then  be  calculated  directly  from  the  resulting  non-Gaussian 
density  function. 

A thirty-third  order  six  degree-of-freedom  air  defense  missile  system 
has  been  investigated  [11]*  The  system  includes  a fifteenth-order  auto- 
pilot, twelfth-order  airframe  equations  with  missile  rotational  and  trans- 
lational variables  and  launcher  dynamics,  fourth-order  actuators,  and 
a second-order  seeker.  Only  certain  segments  of  the  missile  flight  could 
be  handled  by  the  combined  algorithm  because  of  severe  nonlinearities. 

During  this  part  of  the  flight,  two  relay  nonlinearities  in  the  seeker 
prohibited  the  variational  covariance  algorithm  from  giving  acceptable 
results.  However,  the  combined  direct  algorithm  yielded  results  which 
compared  favorably  with  twenty- five  Monte  Carlo  ensemble-averaged  runs. 

The  seeker  relay  nonlinearity  outputs  were  discrete  levels,  and  the  output 
variance  was  easily  computed  for  the  given  operating  conditions  along 
the  flight  path.  Finally,  it  should  be  noted  that  the  combined  direct 
algorithm  gave  unacceptable  results  for  certain  parts  of  the  flight  because 
the  severe  nonlinearities  occurring  in  several  of  the  missile  sybsystems 
we re  not  processed  by  using  the  describing  function  concepts. 

Conclusions 


Three  direct  noise  propagation  techniques  have  been  examined,  and  a 
combined  direct  algorithm  has  been  developed  for  large-scale  applications. 

The  fixed  configuration  method  was  shown  to  be  difficult  to  implement  for 
large-scale  systems  because  of  the  requirement  of  an  assumed  form  of 
the  solution.  The  describing  function  method  employed  a statistical 
linearization  of  system  nonlinearities  with  Gaussian  input  waveforms.  Its 
application  to  large-scale  systems  requires  a catalog  of  describing  functions 
for  the  particular  nonlinearities  present  in  a given  system.  The  varia- 
tional covariance  algorithm  utilizes  linearized  variations  about  nominal 
operating  conditions  to  yield  acceptable  results  for  mildly  nonlinear 
systems.  Moreover,  the  variational  algorithm  is  easily  extendable  for 
stochastic  filtering  applications  where  the  system  state  is  to  be  estimated 
from  a noise-corrupted  measurement. 

The  combined  direct  algorithm  was  applied  to  a thirty-third  order  air 
defense  missile  system.  Certain  harsh  nonlinearities  were  handled  by 
the  describing  function  approach  and  the  other  milder  nonlinearities 
by  the  small-signal,  incremental  linearization  approach.  These  numerical 
results  compared  favorably  with  the  Monte  Carlo  simulation  results 
obtained  for  the  same  large-scale  system. 
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Abstract 


A direct  stochastic  sensitivity  analysis  algorithm  is  developed  for 
linear  dynamical  systems  having  Incompletely  known  input  statistics.  The 
new  algorithm  extends  previous  results  by  applying  covariance  propagation 
concepts  which  utilize  as  a forcing  function  the  sensitivity  covariance 
matrix  associated  with  the  uncertainty  in  the  elements  of  the  system 
input  covariance  matrix  itself.  The  developed  algorithm  is  evaluated  in 
the  context  of  a generalized  sensitivity  analysis  formulation  involving 
nonlinear  transformations  on  the  input  signals.  Numerical  results  are 
provided  to  demonstrate  the  usefulness  of  the  new  algorithm. 


INTRODUCTION 

Noise  disturbances  are  inherent  in  all  large-scale  dynamical  systems, 
typically  appearing  as  a portion  of  the  input  signal,  measurements,  and/or 
variations  in  system  parameters.  Analysis  of  noise  disturbance  effects 
on  the  system  has  been  accomplished  primarily  by  representing  the  noise 
as  a random  process  in  systems  modeled  as  being  continuous  or  as  a random 
sequence  in  discretely  modeled  systems  [1,2].  Interest  in  the  propagation 
of  a random  process  through  a large-scale  dynamical  system  has  centered 
on  quantizing  its  effect  on  performance  and  ultimately  on  determining 
methods  by  which  the  effect  can  be  reduced.  The  traditional  approach 
on  noise  propagation  problems  has  focused  on  the  use  of  Monte  Carlo 
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techniques  in  which  a large  number  of  computer  simulation  runs  are  en- 
semble-averaged to  obtain  statistical  results  [3,4].  A more  modern 
approach  computes  the  effects  of  noise  by  solving  the  differential  equation 
defining  the  state  covariance  matrix  in  terms  of  system  parameters  and 
the  covariance  of  the  input  noise.  Though  well  known  and  widely  dis- 
cussed as  a technique  for  linear,  time-varying  systems  [5-7],  the  method 
has  also  been  applied  to  mildly  nonlinear  systems  by  use  of  appropriate 
linearization  schemes.  In  particular,  Irwin  and  Hung  [8],  Kuhnel  and 
Sage  [9],  and  Rowland  and  Holmes  [10,11]  have  presented  results  for 
aerospace  and  electronic  systems  applications. 

The  covariance  analysis  method  can  be  characterized  by  its  require- 
ment for  a description  of  input  noise  statistics.  However,  in  many  cases 
those  statistics  are  not  well  defined  or,  at  best,  they  may  be  known 
only  to  within  some  tolerance  level  of  uncertainty.  The  question  arises 
regarding  the  usefulness  of  the  covariance  analysis  method  when  a complete 
probabilistic  description  of  the  input  process  is  not  available.  To 
this  end  sensitivity  analysis,  developed  primarily  for  studies  of  filter- 
ing techniques  [12,13],  is  needed  to  provide  a useful  method  for  determining 
the  effects  of  errors  in  modeling  input  signal  covariance  matrices. 

In  this  paper  a new  algorithm  for  sensitivity  analysis  is  developed 
for  linear  dynamical  systems  where  input  statistics  are  not  well  known. 

The  direct  covariance  propagation  concept  for  linear  systems  with  specified 
stochastic  inputs  is  extended  by  considering  variations  in  input  noise 
statistics.  Error  analysis  techniques  based  on  specified  input  covariance 
matrices  are  reviewed  initially  for  background  information.  A direct 
stochastic  sensitivity  analysis  algorithm  is  then  developed  by  expressing 
these  covariance  matrix  equations  in  vector  form  and  applying  error 
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propagation  concepts  to  the  resulting  vector  equation.  A generalized 
sensitivity  analysis  formulation  is  presented  to  establish  the  validity 
of  the  new  sensitivity  algorithm.  Brief  examples  are  considered  through- 
out the  paper,  but  more  complete  numerical  results  are  reserved  for  a 
separate  section  following  the  algorithm  development. 

i 

i 

! PRELIMINARY  ERROR  ANALYSIS  CONSIDERATIONS 

f 

j As  a basis  for  the  main  results  to  be  developed  later,  consider  the 

linear,  time-varying,  dynamical  system  represented  by  the  vector 
differential  equation 

I ^(t)  = A(t)  x (t)  + B(t)  w(t)  (1) 

I 

t 

| where  x.  is  an  n-dimensional  plant  state  vector,  w is  an  m-dimensional 

i disturbance  vector,  and  A and  B are  n by  n and  n by  m system  matrices, 

respectively.  Let  w(t)  be  a vector  of  white  noise  processes  with  mean 
uw(t),  and  let  the  covariance  matrix  associated  with  w(t)  be  defined  by 

E([w(t)  - U„(t)]  [wM  - Wa(t)]T}  = Q„(t)  6(t-l)  (2) 

I 

I where  6(‘)  is  the  Dirac  delta  faction. 

t 

| Let  P(t)  represent  the  state  covariance  matrix,  i.e. 

I 

I 

i 

! P(t)  •=  ECLx(t)  - v£(t)]  [x(t)  - n^(t)]T)  (3) 

where  Px(t),  the  mean  of  x{t) , may  be  determined  from  (1)  by  replacing 
w(t)  by  ^(t)  and  >^(t)  by  Px(t).  It  has  been  shown  that  P(t)  satisfies 
the  matrix  differential  equation  [1,2, 5, 7]  given  by 
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P(t)  = A(t)  P(t)  + P(t)  AT(t)  + B(t)  Qw(t)  BT( t) 


(4) 


This  result  is  sometimes  referred  to  as  the  direct  covariance  algorithm 

ni].* 

Suppose  Q (t)  in  (2)  and  (4)  is  not  known  exactly  but  lies  somewhere 

w 

on  the  bounded  range  between  0.  (t)  and  Q (t).  The  correspondin'*  values 

-1  Sfe 

of  P(t)  from  (4)  may  be  calculated  to  yield  P-j(t)  and  P2(t).  Sticn  an 
error  analysis  based  on  deterministic  variations  from  some  nominal  con- 
ditions, such  as  Q (t)  = Qu  (t)  and  P(t)  = PM(t),  may  be  simplified 

W 


Nv 


when  bounded  variations  6(L(t)  occur  above  and  below  Q,.  (t),  i.e. 

w Wn 

The  resulting  differential  equation  for  6P(t)  is  given  by 


(5) 


6P(t)  = A(t)6P(t)  + 5P(t)AT(t)  + B(t)6Q  (t)BT(t)  (6) 

w 

Therefore,  P(t)  varies  between  P-|(t)  = P^(t)  - 6P(t)  and  P2(t)  = 

Fjj(t)  + 6P(t)  for  the  variations  of  Qw  specified  in  (5). 

Example  1 

Suppose  a steam-driven  piston  is  used  to  impart  a starting  velocity 
condition  to  aircraft  on  a carrier  deck.  The  steam  pressure  after  each 
firing  varies  randomly  on  the  piston.  By  neglecting  the  aircraft  dynamics, 


It  should  be  observed  that  the  covariance  results  of  this  paper  are 
applicable  to  linear  systems  and, hence,  are  not  dependent  upon  the  mean 
value  of  w(t).  However,  extensions  are  possible  for  an  approximate 
analysis  of  mildly  nonlinear  systems,  for  which  the  coefficient  matrices 
A(t)  and  B(t)  are,  in  general,  affected  by  These  extensions 

are  discussed  in  a later  section  of  the  paper. 
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it  may  be  shown  that  the  piston  motion  can  be  modeled  by  a first-order 
linear  system  of  the  form 


x = -a  x + b w(t) 


(7) 


where  the  state  x is  the  piston  velocity,  a is  the  ratio 

coefficient  through  the  slotted  rail  guide  to  the  piston 

is  the  product  of  the  pressure  difference  and  the  piston 

ratio.  Random  variations  in  steam  pressure  are  assumed 

white  noise  signal  w(t)  with  a constant  variance  Q . If 

w 

set  at  Q and  then  varied  in  both  directions  by  a fixed 
WN 


of  the  drag 

mass,  and  b 

area-to-mass 

to  be  a Gaussian 

Qw  is  originally 

amount  6Q  , 
w 


the  problem  is  to  determine  the  resulting  variations  in  the  state  covar- 
iance P(t). 

The  direct  covariance  algorithm  in  (4)  may  be  used  to  propagate 

the  nominal  value  of  Q (t)  to  yield 

w 

b2Q 

WN 

yt)  - PM(0)e'2at  + -J5-  (1  - e~2at)  (8) 


Variations  about  this  nominal  solution  may  be  computed  by  using  the 
deterministic  error  analysis  procedure,  which  yields  from  (6) 


6P(t)  = 6P(0)e"2at  + 


b2(«„) 

2a 


(1  - e 


(9) 


Comparisons  are  indicated  in  Figure  1 between  these  deterministic  results 

in  (8)  and  (9)  and  corresponding  results  from  the  stochastic  sensitivity 

analysis  algorithm  to  be  developed  in  the  next  section.  Numerical 

data  for  these  curves  were  obtained  for  a = b =Q  , = 1 , 60  = 0.5,  and 

w w 

PN(0)  = 0. 
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DETERMINISTIC  RESULTS 
FROM  EQUATION  (9) 


ft 


STOCHASTIC  RESULTS 
FROM  EQUATION  (19) 


Comparison  Between  Stochastic  and  Deterministic  Sensitivity 
Analysis  Results  for  Examples  1 and  2. 


STOCHASTIC  SENSITIVITY  ANALYSIS 
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The  worst-case  deterministic  error  analysis  of  the  previous  section 
may  be  expanded  to  provide  results  that  are  less  conservative.  Using 
the  same  techniques  required  for  deriving  (4),  a similar  error  propagation 
equation  for  sensitivity  analysis  may  be  developed  for  deviations  in 
P(t)  due  to  stochastic  variations  in  the  input  noise  covariance  matrix 

<yt). 

Let  the  matrix  P(t)  be  expressed  in  terms  of  its  column  vectors 
£.  for  j = 1 , 2,  ...  , n as 

J 

P(t)  - (]3_i  , j . . . > £j » • • • j ) (10) 

Therefore,  one  may  form  the  vector  £with  n(n+l)/2  components  as  the 
distinguishable  elements  of  P,  i.e. 


1 


where  the  notation  L£-3n  denotes  that  only  the  upper  j components 

J J 

of  the  vector  are  retained  in  forming  £.  Similarly,  since  Qw  is  an 
m by  m symmetric  matrix,  the  vector  £ of  dimension  m(m+l)/2  may  be  formed 
as 


\ 

£ 

l 
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02) 


Let  the  covariance  matrix  of  £ be  defined  by 


E(Ca(t)  - yg(t)]  Ca(r)  - U£(t)]T1  = Qg(t)6(t-r)  (13) 


where  it  is  assumed  that  £(t)  is  a vector  of  white  noise  processes. 

Corresponding  to  the  uncertainty  in  Q , the  covariance  matrix  associated 

w 

with  deviations  in  P may  be  expressed  as 


= E(feU)  - V£(t)]  [£(t)  - y£(t)]T)  (14) 

where  u (t)  is  the  vector  of  dimension  n(n+l)/2  corresponding  to  a 
rearrangement  of  the  elements  of  P(t)  from  (4)  with  Q (t)  ■ Q (t). 

- h 

Expressing  P(t)  in  terms  of  its  column  vectors  as  in  (10)  and  ex- 
panding according  to  (4)  yields  for  the  jth  column  vector  £.  the  vector 

J 

differential  equation 


no 


4 


+ kii  444  + 


in  t 

* 444 

k=l 


(15) 


where  a,,  and  b.  are  n-vectors  representing  the  jth  columns  of  A and  B, 

0 J 

respectively,  and  d^,  is  defined  as  an  n-vector  with  zero  elements  every- 
where except  for  a single  unity  element  in  the  kth  row.  Equation  (15) 
may  be  expressed  for  all  j between  1 and  n in  the  vector-matrix  form 
as 


£=A£+T£  (16) 

where  repeated  component  differential  equations  in  (15)  have  been  omitted 
in  a manner  similar  to  that  used  in  forming  £ in  (11).  The  matrices 
A and  r are  n(n+l)/2  by  n(n+l)/2  and  n(n+l)/2  by  m(m+l)/2,  respectively. 
Applying  error  propagation  concepts  as  in  (4),  the  matrix  differential 
equation  for.  the  sensitivity  covariance  matrix  P^(t)  is 

(t)  = A(t)P£(t)  + P£(t)AT(t)  + r(t)Qa(t)FT(t)  (17) 


which  is  the  main  result  q*  this  paper. 

Example  2 

Let  the  scalar  system  (7)  of  Example  1 have  a Gaussian  white  noise 

input  w(t)  with  a covariance  matrix  Q which  is  uniformly  distributed 

w 

on  the  range  (Q, , - 6Q  , Q, , + 6Q  ,) . The  problem  is  to  apply  the  sto- 
w^  w w^  w r 

chastic  sensitivity  analysis  algorithm  (17)  to  determine  corresponding 
variations  in  P(t). 

The  stochastic  sensitivity  analysis  equation  in  (17)  for  this  scalar 


example  becomes 
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Pp(t)  = -4aPp(t)  + b4  Qq 


(18) 


where  Qq  for  the  given  uniformly  distributed  random  process  may  be  easily 
computed  as  (<SQw)2/3.  Therefore,  the  solution  of  (18)  is 


Pp(t)  ■ Pp(0)  e‘4,t  + b (SQw> 


12a 


(1  - e-,at) 


(19) 


Figure  1 compares  these  sensitivity  results  with  those  in  (9)  for 

the  parameter  values  specified  in  Example  1.  In  particular,  the  one- 

sigma  band  PN(t)  + / Pp(t)'  is  shown  for  the  stochastic  algorithm. 

While  this  comparison  is  interesting,  it  should  be  recognized  that  two 

different  situations  are  being  considered  in  Examples  1 and  2.  In 

Example  1,  the  error  6Q  , i.e.  the  variation  of  Qu  from  Q1(  » is  known  exactly, 

w w w^ 

The  resulting  deterministic  analysis  yields  the  exact  variation  in  P(t) 
from  PN(t),  On  the  other  hand,  the  stochastic  problem  in  Example  2 
has  a randomly  (uniformly)  distributed  Qw  over  a given  range.  Consequently, 
the  one-sigma  band  on  P(t)  about  its  nominal  may  be  determined  according 
to  the  stochastic  sensitivity  analysis  algorithm  in  (17). 


A GENERALIZED  SENSITIVITY  APPROACH 

It  is  instructive  to  reconsider  the  problem  of  the  last  section 

in  the  more  general  context  of  nonlinear  transformations  at  the  system 

input.  If  the  uncertainty  in  Qw(t)  is  due  to  the  presence  of  a second 

white  noise  process  r-vector,  the  nominal  covariance  matrix  Q (t) 

— N 

must  be  determined  from  the  joint  probability  density  function  of 
w(t)  and  s_(t).  It  should  be  observed  that  the  resulting  Q (t)  may  be 


different  than  that  obtained  previously  under  the  assumption  that  sjt) 
is  non-random.  If  Q (t)  is  different,  then  (4)  may  be  applied  to  yield 

WfJ 

a new  nominal  state  covariance  matrix  P,j(t),  which  includes  elements 
due  tc  the  propagation  effects  of  the  modified  w(t).  Moreover,  the 
sensitivity  analysis  procedure  described  earlier  remains  valid  if  variations 
about  the  new  P^(t)  are  considered. 

Suppose  the  joint  probability  density  function  relating  the  components 
of  w and  £ is  given  by 


“ fK|s  fell 5 i)  fs  <i> 


Let  Q (t)  be  defined  at  any  time  t as 


% 4 E{[il ' <y] 


(‘1  - vj  (w  - yw)T  fw  |' s (w|s  = i)  dw  (21 ) 


where  t.he  inner  integral  denotes  an  m-fold  integration  over  the  m com- 
ponents of  w and  the  outer  integral  an  r-fold  integration  over  the  r 
components  of  Moreover,  let  Qw  be  a matrix  of  random  variables  at 
any  time  t defined  as 


Qw  ■ / («  ' (w  - PW)T  fw(s  (w|s  *4)  dw 


It  follows  from  (21)  and  (22)  that  Q = E{Q..},  which  may  be  evaluated 

=N  - 


\ = E(,s 


(-i)  d<s 


k'X'iVWA ,, 
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because  the  uncertainty  in  Qw  is  assumed  to  be  due  to  the  randomness  of 
s_(t).  The  resulting  Q is  different  from  that  which  would  have  been 
obtained  from  (22)  by  replacing  £ by  its  mean  vs-  Therefore,  the  covar- 
iance matrix  associated  with  the  uncertainty  of  Q , i.e.  Q (t),  must 

w £ 

be  computed  by  using  fgUj  as  shown  in  the  following  example. 

Example  3 

Consider  the  system  (7)  of  Example  1 with  a scalar  white  noise  input 

w(t)  which  is  uniformly  distributed  on  the  range  (y -s,  y +s).  Let 

w w 

s(t)  be  a second  uniformly  distributed  white  noise  process  on  the  range 
(ys-a,  ys+a) , where  y$  and  a are  positive  constants.  The  problem  is 
to  determine  the  nominal  state  covariance  matrix  P^(t)  and  the  sensitivity 
analysis  variations  about  that  nominal  as  a function  of  time. 

Since  s(t)  and  Q (t)  are  not  identical  in  this  example,  the  nominal 

W 

variance  of  w(t)  will  be  different  than  the  value  which  would  have 
been  obtained  by  assuming  that  s(t)  is  non-random,  i.e.  s(t)  * yg. 

For  later  reference,  this  value  is  given  by 

. .Vs  . , „2 


Q - E«wV>  ■ / (-u/  2y 


Vs 


and  the  resulting  expression  for  P^(t)  from  (4)  would  have  been 


PN(t)  = Pfj(O)  e 


-2at  . (l-e-2at) 


The  correct  Q1(  (t)  may  be  determined  from  (21)  as 

Wm 


S' VTr»  w ^ / aw  i-1 
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Va  V* 


WM 


£{(w-yw)2}=/  / (wV\4r)Ha 


dwdA 


Va  yw-<s 


(26) 


which  yields 


_ u 


w. 


a 


From  (22)  , 


V*  & 2 

v/  (“-V  fwls  (“ls '4  > ‘"T 


u -4 


(27) 


(28) 


Therefore,  the  variance  of  Qw>  denoted  by  Qq,  may  be  calculated  as 


2 >+a  r2,  /p2  a2  \n2l  d4 

vE«vv  ’ = {-a  t4/J-(V-v 


4 

27 


2 / 2 . a \ 
a (ys  +15  ) 


(29) 


Using  (27)  and  (29),  the  corresponding  values  of  PN(t)  from  (4)  and 
Pp(t)  from  (17)  are 


(l-e-2at) 

(30) 

(l-e"4atj 

(31) 

The  results  in  (30)  and  (31)  are  plotted  in  Figure  2 for  a = b = =1 , 

a = 0.5,  and  PN(0)  = P (0)  = 0.  Also  included  for  comparison  purposes 
is  a plot  of  PN(t)  for  the  case  where  s(t)  is  assumed  to  be  non-  random 


and 


PH(t)  = PN(0)e'2at  + 


b‘ 

2a 


a 


Pp(t)  = Pp(0)e 


•4at 


4a 


4 a2 
17° 


(M2  + 


a 

15 


(ci=0).  • This  example  demonstrates  the  importance  of  determining  the 
correct  Q and  Q for  use  in  error  propagation  and  sensitivity  analysis 
studies  for  general  aerospace  and  electronic  systems  applications. 

NUMERICAL  RESULTS 

Consider  the  second-order  linear  electronic  circuit  shown  in  Figure 
3 and  described  mathematically  by 


V1  = “ R^  V1  + ^ w(t) 

v2  = " R^C2  v2  + R^2  V1  ( 

where  R^  = 1,  R2C2  = 1/2,  and  K =1/2.  The  source  voltage  w(t),  applied 
for  all  t _>  0,  is  a zero-mean  Gaussian  white  noise  process  with  an  in- 
completely specified  variance  Q . The  uncertainty  in  Q is  directly 

W W 

attributable  to  the  fact  that  the  standard  deviation  of  w(t),  denoted 
by  s(t),  is  also  a Gaussian  white  noise  process.  The  mean  of  s(t)  is 
1.0  and  its  variance  0.1.  The  problem  is  to  determine  the  propagation 
effects  on  the  voltages  across  the  capacitors,  i.e.  v^(t)  and  v2(t), 


Figure  ?.  A Schematic  Diagram  of  the  Second-Order  Linear  Electronic 
Circuit  Described  by  Equation  (3?) 
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due  to  the  given  white  noise  input  w(t). 

The  value  of  Q for  use  in  (4)  may  be  determined  trom  (23)  as 


q„n  ■ « V * L Qwfs(‘>  * 

*/  ds  » <s\  * y2 


where  the  variance  Q has  been  replaced  by  the  square  of  the  standard 

W 

deviation  s(t).  The  expression  in  (33)  yields  the  second  moment  of  s, 

which  is  equivalent  to  the  sum  of  its  variance  and  the  square  of  its 

mean.  The  component  equations  in  (16)  corresponding  to  (4)  with  Qw  - 

Q may  be  written  as 
WN 


% = 2allPNn  + 2a12PN12  +Qwn 


pN12  = a21pMn  + ^a11+a22^  pN12  + a12pN22  (34) 


pN22  = 2a21pN]2  + 2a22pN22 


The  given  resistor  and  capacitor  values  for  the  system  in  (32)  yields 
a-j-j  — "l  $ a-j2  Oj  a2i  _ 1 j and  a22  "*  — ^ * 

The  value  cf  Q for  the  stochastic  sensitivity' analysis  may  be 

q 

determined  as 

0 = £{(n  -n  )2}  = e{Q2}  - Q2 
^q  1 ww  lV  vwN 


«s4:'  - «L 


+ 
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where  the  evaluation  in  (35)  has  been  performed  by  expanding  E{(s-ys;  } = 
<£  , E{ (s-u  )3>  = 0,  and  E((s-u  )^}  = 3a^  and  then  substituting  for  E{s^} 
as  indicated.  Therefore,  the  component  equations  in  (17)  for  P^(t) 
become 


PP„  = 4allPPn+4a12PP12+(!q 


pp12  = a21  ppn  + (3all  + a22>  pp)2  + a12pp,3  + 2a12pp, 
Pp22  = ^ Pp12+  2<a"+a22>  Pp22+  22,2  Pp23 


PP„  = 2a21  pPl,  + 2 <all  + a22)  pPl,  + 2a12  pf 


pp23  = a2,  pp13  + 2a21  pp22  + < V3a22)  PP23+a12pP33 


Pp33  = ^ Pp23  + 4522  Pp33 


Numerical  results  are  shown  in  Figure  4 for  the  equations  in  (34) 

and  (36).  In  particular,  it  is  demonstrated  that  the  one-sigma  bands 

from  (36)  about  the  nominal  noise  propagation  results  from  (34)  vary 

considerably  in  magnitude.  The  bands  for  p^Ct),  p^Ct),  and  P 22 (*) 

were  determined  as  pM  (t)  + f~\T  (TT  » pw  (t)  + /“pi  C^TT  and 

HI  ” P11  H2  “ p22 

pM  (t)  + /"pH  (TT  , respectively.  The  other  components  of  P„(t)  were 
m22  • ” p33  £ 

used  to  determine  the  correlation  between  the  band  thicknesses  in  Figure 


.<<•  ...  ...  , ■ *•  * 


\\\\\\\\\\\w\\\\\\ 


4.  Correlation  coefficients  were  defined  as 


P 12  = po  1 / pd  (t)  Pd  (t^ 
12  P12  pn  p22 


p i3 = p«.  .w  / -n^^roi 


p13 


hi  P33 


(37) 


P 23  " Pp23{t)  1 / Pn.Jt)  Pn.Jt) 


n Hn  \ 

P22  P33 


Starting  at  slightly  higher  values  for  t « 0,  these  coefficients  decreased 
monotonically  to  approximately  0.77,  0.56,  and  0.93,  respectively,  after 
t * 1.  Therefore,  there  exists  a strong  correlation  between  the 
thicknesses  of  the  one-sigma  bands  for  the  given  circuit  In  Figure  3. 

DISCUSSION  AND  EXTENSIONS 

A Gaussian  assumption  on  the  Input  signal  w(t)  is  not  required  for 
the  validity  of  the  stochastic  sensitivity  analysis  algorithm,  although 
such  signals  frequently  occur  in  practice.  When  the  components  of  w(t) 
are  jointly  Gaussian,  the  resulting  probability  density  function  of  the 
linear  system  state  x (t)  is  also  jointly  Gaussian  and,  hence,  may  be 
written  explicitly  in  terms  of  P(t)  and  the  state  mean  ux(t).  Moreover, 
if  w(t)  is  an  m-vector  of  Gaussian  colored  noise  signals,  then  an  appropriate 
ly  designed  shaping  filter  may  be  utilized  to  yield  an  equivalent  higher- 
order  linear  system  having  a Gaussian  white  noise  input.  In  those  cases 
where  either  s or  w is  a random  bias  signal,  i.e.  random  variable,  the 
noise  propagation  algorithm  must  be  modified  accordingly  [11]. 


aStt ■>-  - 1 - at tSiil - -- y ^ 


121 


The  stochastic  sensitivity  analysis  algorithm  may  be  applied  for 
an  approximate  analysis  of  mildly  nonlinear  systems  by  considering  linearized 
incremental  variations  about  nominal  operating  conditions  [10,11].  In 
such  coses  the  nominal  trajectory  x^(t)  is  obtained  by  replacing  w(t) 
and  x(t)  in  the  nonlinear  system  equations  by  ^(t)  and  x^(t),  respectively. 
The  resulting  ti>.:e  function  x^(t)  is  treated  as  an  approximate  estimate 
of  the  mean  value  of  the  system  state  x_(t).  A Taylor  series  expansion 
of  _x(t)  about  Xyj(t)  in  terms  of  the  variations  6x.(t)  is  truncated  after 
first-order  terms.  Neglecting  second  and  higher-order  terms  is  reasonable 
if  the  dynamical  system  is  mildly  nonlinear.  Such  linearization  schemes 
in  filtering  applications,  where  the  nonlinear  system  state  is  observed 
in  the  presence  of  additive  measurement  noise,  has  led  to  the  variational 
and  extended  Kalman  filtering  algorithms  in  common  use  today  [14],  An 
extension  of  the  stochastic  sensitivity  analysis  principle  to  these 
filtering  applications  should  yield  some  immediate  useful  results. 

Finally,  it  is  worthwhile  to  consider  the  similarities  and  differences 
between  the  concepts  developed  here  and  those  utilized  in  [15].  An  im- 
proved digital  integration  algorithm  for  mildly  nonlinear  systems  was 
derived  in  [15]  by  considering  variations  upon  variations  about  the  current 
state.  The  similar  concept  of  stochastic  variations  in  Qw  upon  stochastic 
variations  in  the  input  signal  w(t)  has  been  used  in  developing  the 
algorithm  of  this  paper.  A major  difference  in  the  two  applications 
is  that  exact  integration  results  were  obtained  for  linear  systems  in 
[15]  by  using  a single  variation,  and  further  variations  yielded  no  new 
information.  On  the  other  hand,  a stochastic  variation  upon  a stochastic 
variation  provided  useful  exact  sensitivity  results  in  the  present  paper. 
Primarily  of  theoretical  value,  an  extension  analogous  to  the  higher- 
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order  deterministic  variations  for  nonlinear  systems  in  [15]  would  be  the 
consideration  of  higher-order  stochastic  variations  ad  infinitum  in  the 
input  noise  statistics  and  the  tolerances  on  their  specification. 


CONCLUSIONS 

A direct  stochastic  algorithm  has  been  developed  in  this  paper  to 
provide  sensitivity  analysis  information  for  linear  systems  with  input 
statistics  which  are  random.  The  elements  of  the  input  signal 
covariance  matrix  have  been  treated  as  white  noise  processes  with  known 
statistics  and  covariance  propagation  concepts  applied  to  yield  the 
new  algorithm  for  determining  stochastic  variations  in  the  state  covariance 
matrix  about  its  nominal.  Numerical  results  for  a second-order  system 
have  been  presented  to  demonstrate  the  computations  required  in  using 
the  algorithm. 
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COMPUTER  PROGRAM  FOR  THE  STANDARD  METHOD 
OF  MONTE  CARLO  SIMULATION 

The  program  for  the  Monte  Carlo  technique  using  the  standard 
method  has  been  included  in  this  Appendix.  A second-order  system  was 
used  to  obtain  Monte  Carlo  results  for  25,  50,  100,  200,  500  and 
1000  runs  for  comparing  the  results  with  other  methods  as  discussed 
in  Chapter  II. 

Statements  35  through  46  were  used  to  generate  zero-mean,  unity- 
variance,  Gaussianly  distributed  random  numbers.  Subsequent  instruc- 
tions were  used  for  the  calculation  of  the  output  variance  and  the 
percentage  error  on  the  output  variance.  The  Runge-Kutta  second- 
order  formula  (RK2)  was  used  for  integrating  the  second-order  system. 
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OINENSION  XE(2).XSI2).XM0(2)»X!ll(2)  «S(  10)  .SOLI  101  .DIF (10)  .XEMI10) 
T-0. 

H * 0.05 
HS-2 
11  * 0 
N TOTAL*  100 
NTOT  *NT  OT  AL/ 10 
00  31  N-l.NTOT 
SIN)  - 0. 

XEN1N)-  0. 

31  CONTINUE 
XNEAN-O. 

1X-31571 

DUN-0.1 

S16  - SQRTll./H) 

00  S2  I -l .40 
1FI l.EQ.l ) 00  TO  01 
IFII.EQ.2)  GO  TO  01 
1FII.E0.4)  GO  TO  01 
1FI I.EQ.8)  GO  TO  01 
1FI I.EU.20)GO  TO  01 
IFU.EG.40IG0  TO  01 
GO  TO  02 
01  NUN  « 25*1 
XNUN  • NUN 
XNUN1  * XNUN* XNUN 
XNUN2  * XNUN  - 1.0 
XNUNI  • XNUN/XNUN2 
JJ*U*i 
00  12  N-4J.NUN 
XEI 11-0. 

XEI21-0. 

00  42  N-lyNTOT 
00  52  L-lylO 
IV*  19471*IX 
IVP-lV/1040374 
, IX*  IV- 1 VP*  10403  7* 

AX- IX 

U-AX/1040374. 

IF(U) 3.3.4 
3 U—- U 

* CONTINUE 

1X-IV 

2-SURT |-2.C*AL0G(0UH ) )*SIG 
XNQRM  >2*CO$(4.20310«U)+XMEAN 
OUN-U 

CAU  XEONIXE.XNO.XNURN) 

00  23  K-l.NS 

23  XS(K)*XE(K) ♦H*XNQ(X) 

CALL  XEUNIXS.XNl.XNORN) 

OU  24  K*1»N$ 

24  XE'.K)*X£|K)*0.S*H*JXN0U)4XNIU») 

52  CONTINUE 

SIN)  • SIN)  ♦ XE 1 1) *XEI  1) 


• . *3.  j»VV< 
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55 

56 

62 

57 

32 

58 

59 

86 

60 

6l 

62 

33 

63 

65 

65 

66 

67 

68 

69 

70 

71 

72 

73 

76 

7 

75 

62 

76 

77 

15 

7a 

79 

80 

81 

82 

83 

97 

86 

85 

86 

96 

87 

88 

82 

89 

90 

xEM(N)  * XENiN)  ♦ XE(1> 

CONTINUE 

CONTINUE 

»RITE(6,86)NUH 

FORMAT UX,//*  NO.  OF  SUNS  » a,I5) 

MU IE(6,15) 
rfMfEtt.831 

FORM AT (Til t'TIME*  «T  25t 'S(MA) a »T3B» 'SOC(NA) •|T53»,01F(NA)a»T68. 

1*  XEH(NA)' ) 

00  62  NA*1,MTUT 

XM-NA 

T-H*XNA*10. 

SaiNAI  *0.08333333333-0. 5*EXP(-2.0*T)*0.6666666667*EXP(-3. 0*7) 
1-0.  25*EXPI-6.0*T  1 

XEM(NA)  * XEMlNA)*Xtn(  NA ) /(  XNUHVXNUH) 

XEM(NA)  « XEM(NA)*XNUM3 

SINAI  - SINAI /XNUH2-  XEHINAJ 

OIF(NA)  * 100.0*1  SINAJ-SOUNAll/SOUNA) 

MKIT£(6»7 >TtS(NA).SOL (NA J ,UIFl NA ) , XEMiNAI 
FOkHATI  10X.F5.2  .6F15.6) 

CCMT1NUE 
■RITE(6  >151 
FORMAT!//) 

SS1»0. 

OL  97  f.A*l  tMTOT 
SS1*SS1*ABS(01FCNAI) 

S (NA)  = IS (NA)*X£H(NA) )*XNUH2 
XEM(NA)  » SORT (XEM(NA)/XNUM3 )*XNUM 
CONTINUE 
S1*SS  1*0.1 
»M  TE(0t96)  SI 

FliRMAT ( 20Xt  'PER  CENT  ERROR  * *,F20.8) 

U*NUN 

CONTINUE 

STOP 

ENO 


SUBROUTINE  XEq?j(xC,XHO,RT) 
DIMENSION  X0(2)  fXH0(2) 
XM0(1)*X0(2) 

XRu( 2)*-2 .0*X0( 1)-3.0*X0(2) *RT 

RETURN 

END 
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THE  COMPUTER  SOFTWARE  PACKAGE  APPLIED  TO 
THE  LARGE-SCALE  MISSILE  SYSTEM 

This  appendix  includes  the  implemented  computer  software  package 
on  the  thirty- third  order  math  model  of  a six  degree-of- freedom  air 
defense  missile  system.  In  addition  to  the  modification  of  the  origi- 
nal program,  the  nine  subprograms  which  have  been  implemented  a,'* 

COEFF,  COVAR,  RUNGKP,  MDERIV,  SNOISE,  DETARA,  INTA2M,  RANDU,  and 
RANDG. 

The  main  program  initializes  all  the  covariance  matrix  elements 
and  other  variables  used  in  the  program.  Subroutine  INTA2M  initializes 
the  coefficient  matrix  elements.  The  SYSINT  subprogram  updates  the 
nonlinear  terms  of  the  coefficient  matrix,  enters  Subprogram  COEFF 
to  evaluate  the  coefficients  for  the  implicitly  related  variables, 
and  calls  the  COVAR  subprogram  where  the  covariance  differential  equations 
are  calculated.  These  eqMations  are  then  integrated  by  entering 
RUNGKP  from  SYSINT.  Subroutines  SNOISF.  and  DETARA  are  used  to 
calculate  the  variance  of  the  noise  introduced  In  the  SEEKER  program. 

A listing  of  all  subroutines  is  provided  on  the  following  page 
to  indicate  their  location  within  this  appendix. 
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Subroutine 

Page 

MAIN 

129 

INITIA 

138 

INTA2M 

139 

BLOCK  DATA 

140 

SYSINT 

141 

RANDG 

146 

RANDU 

147 

FUNCTION  XLIMIT 

147 

RK4 

148 

RUNGKP 

148 

SYSRUN 

149 

COEFF 

152 

MDERIV 

159 

COVAR 

160 

SEEKER 

162 

FUNCTION  DEAD 

162 

SNOISE 

163 

DETARA 

164 

VANEMD 

165 

TARGET 

166 

ROTATM 

168 

TRANS 

169 

TRANSM 

170 

AUTOPT 

172 

AERODY 

173 

DTLUX1 

175 

THRCON 

176 

INTRP3 

177 

PRDATA 

178 

DATA 

181 

J 


TERMINAL  HOMING  - ALL  DIGITAL  SIMULATION 


**«•  BLANK  COMMON  HOUSES  AERODYNAMIC  COEFFICIENTS  AND  DERIVATIVES  IN 
***  TABULAR  FORM  FOR  USE  BY  THE  1,  2,  AND  3 VARIATE  LOOK  UP  SCHEME. 

COMMON  DXOYDZIoC)  .IA0DI20)  .AER0U360) 

*»*  COMMON  BLOCK  /TIMES  CONTAINS  CURRENT  TIME.  STEP  LENGTH  AND  OTHER 
***  EVENT  TIMES  IN  THE  SIMULATION. 

COMMON  /T IMES/T ,OT ,T6C,TSTOP. 1PR.J, LAUNCH 
OOUBLE  PRECISION  T.OT 

***  PROGRAM  SELECTION  (MODULE  TEST  OR  SYSTEM  RUN)  AND  MODULE  TEST 
***  DATA  (WHEN  M0DE=»2) 

COMMON  /CNTRL/MOOE,  HDLs ( A) , IV, DAT AM ( 16 ,4) 

♦**  COMMON  BLOCK  /AUTOP/  CONTAINS  INTEGRATION  VARIABLES,  DERIVATIVES 
***  AND  INTERMEDIATE  VARIABLES  REQUIRED  BY  , HE  AUTOPILOT  MODULE 

COMMON  / AUTOP/NA,  VA(  15) , DVA(  15)  ,OV(  7) 

***  COMMON  BLOCK  /SEEKR/  CONTAINS  INTEGRATION  VARIABLES,  DERIVATIVES 
**♦  AND  INTERMEDIATE  VARIABLES  REQUIRED  BY  TNE  AUTOPILOT  MODULE 
COMMON  / SEEKR/  NS, VS(2 ) ,OVS(2) ,OSV(8) 

**♦  COMMON  BLOCK  /VANES/  CONTAINS  INTEGRATION  VARIABLES  AND  DERIVATIVES 
***  REQUIRED  IN  THE  VANE  ANGLE  CALCULATION  MODJLE 

COMMON  /VANES/NV,VV(A), DVV( 4 ) ,DEL ( 3 ) 

***  COMMON  BLOCK  /ROTATE/  CONTAINS  ROTATIONAL  VARIABLES  AND  DERIVATIVES 
**»  USED  IN  THE  MISSILE  MODULE 

COMMON  /ROTATE/NR ,PB, OB ,Rb, THETA, PHI ,PSI ,0PB,DQ8,DRB,DTHA,DPHI 
l r DP  SI ,SNTHA,CST  M,SNPHI,CSPHI,SNPSl,CSPSI»WP*WQ»WR*BTHETA,BPH*BPS 

***  COHHON  BLOCK  /STATEV/  CONTAINS  TRANSLATIONAL  VARIABLES  AND 
►**  DERIVATIVES 

COMMON  /STATEV/NT,UE,VE,WE,X,Y, Z ,DUfc ,DVE  ,DWE ,DX ,DY,DZ 

***  COMMON  BLOCK  /AOOV/  CONTAINS  ADDITIONAL  VARIABLES  DERIVED  FROM 
***  I HE  STATE  (INTEGRATION)  VARIABLES 

COMMON  /AOOV/Al;  .IP,  ALFA , BET  A t XMNi  CS  PHIP  ,SNPH!P,QUE,VSS«  RHO 

***  COMMON  BLOCK  /COEFS/  CONTAINS  THE  THRUST  AND  AERDYNAMIC 
♦**  COEFFICIENTS  AND  DERIVATIVES  OBTAINED  BY  TABLE  INTERPOLATION 

COMMON  /COEFS/TRR, AERC( 18 ) 
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***  COMMON  BLOCK  CONTAINS  AIRFRAME  CONSTANTS  GOVERNING  AERODYNAMIC 
**»  FORCES  AND  THRUST  MISALIGNMENT 

COMMON  /GEOMK/S,0,XTCG,YTCG,ZTCG,RLl,RL2,WUE,WVE,WWE 

***  COMMON  BLOCK  /MSINCG/  CONTAINS  MASS,  INERTIAS  AND  CG  POSITION  OF 
*•*  THE  AIRFRAME  PLUS  THE  CONSTANT  VALUES  FROM  HHICH  THEY  ARE  OBTAINEO 

COMMON  /MS INCG/SI ,HO ,WF«XIXO, XIYO,RLCGO,ROCGO,RDCGP«XM ,XIX,XI Y« 
lRLCGtRDCG 

***  COMMON  BLOCK  /FCEMOM/  CONTAINS  THE  AERODYNAMIC  FORCES,  MOMENTS, 

***  AND  THRUST  MISALIGNMENT  COMPONENTS 

COMMON  /FCEMOM/ FX A, FY A«FZA,XMXA,XMYA, XMZA,FTHX,  FTHY  »FTHZ 

***  COMMON  BLOCK  /INCEPT/  CONTAINS  TARGET  POSITION  AND  VELOCITY, 

•**  TARGET' MISSILE  INTERCEPT  SPEED  AND  RANGE  AND  INPUTS  TO  THE  SEE<ER 

CUM  MON  / 1 NC  EPT/  UT  ( 3 J , XT  1 3 ) , TNVEL , TMRNGE , BEP  SZ , B EPSY 

***  COMMON  BLOCK  /TRANSF/  CONTAINS  MATRICES  FOR  CONVERSION  FROM 
*•*  VARIOUS  COORCINATE  SYSTEMS  TO  .OTHERS 

COMMON  /TRANSF/BCSECS(3»3I , ECSBCS (3  ,3 ) , BCSGCS (.3  ,3 1 , ECSGCS  13,3) 

***  COMMON  BLOCK  CONTAINS  UTILITY  VALUES  SUCH  AS  GRAVITY  ACC.  AND 
***  RADIANS  TO  OC'REES  CONSTANTS. 

COMMON  / AUTOK/  WQG,0QG,TAUZ,TAUY,TAUL,GYZ,RA1,RB2,WP1,DPI,RK1, 
IPYAK1,PY3K1,PYIK1,WQ1,DQ1,PYLIM,RLIM»GBIAS»QBIAS,RBIAS 
COMMON  /VANEK  /VGAIN, VL IN, VRLIH 

COMMON  / SEEKK/  SKSP, SKSY, TSAMP.DTS AMP, CROS PT ,CRQSTP,SYGBIS, SZGBIS 

COMMON  /UTILTY/G.RTD 

COMMON  /V  MG/  H,  MS 

COMMON  /VMG1/P1 (33 ,33 ) , OP6 (33 ,33 ) 

COMMON  /VMG9/JUNK (VTIHE l, VT I ME2,VNOI SD, NUMM,NOMNAL 
COMMON  /BLOK1/OTH 

COMMON  /BL0CKl/P(33  ,33)  ,OP( 33 ,33 ) ,DP9 (33 ,33 ) 

COMMON  /BLOCK 2/  A2(  33,33) , KI K,KOUNT  , K I CK,KAT,B2( 2)  »K400 

COMMON  / BLGCK7/KK3  ,THRP,T IMP 

COMMON  /BL0CK8/KK1 ,KK5,  VP 

COMMON  /BL0CK9/K0K,  IS1 

COMMON  /BLIK2/  AV0(4> ,BV0(4) 

COMMON  /SNSE/  AREAl  31 ) , EZNOI  S,E  YNOI  S,  V8EPS  , VBEPSZ,  VBEPSY 
COMMON  /N8LOK1/ KOUNT I.XNORM ( A) , S 1 ( 33,  AO  I 
COMMON  /MBL0K2/SIG1 ,OUM,XMEAN,IX ,N1 , 1 1, 1 2,K1, N2 
COMMON  /MBL0K3/  S2( 33, AO) 

COMMON  /MVMG/S3 (40 ) ,K INTER, KONT ER 

COMMON  /MVMS1/JX,YN0RM( 331 ,OAMU,SIGU,XMEANU, IS2 

COMMON  /MVMG2/TEPST G(331,KIT,IKPR,THVE,TMRNG  ,EZTMP,EYTMP 

COMMON  /MVNG3/S4 (33 1 

DIMENSION  LBLdOJ  ,TRANFR(33I 


— xitiiaK  ^ Ll-h  rv  sh ) - 
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CARO 

109  C 

110  c •••*•••*•»******»*••*•**••*•»**•••«*****»•******•*•*»•■»****•*•#****••*•»••***• 

111  C VTIME1  — CONTROLS  SWITCHING  TINE  FROM  MONTE  CARLO  TO  COVARIANCE  PROGRAM 

112  C VTINE2  --  CONTROLS  SWITCHING  TIME  FROM  COVARIANCE  TO  MONTE  CARLO  PROGRAM 

113  C VNOISD  --  CONTROLS  THE  NOISE  INPUT  IN  OEGREES  IN  SUBROUTINES  - TARGET 

114  C AND  SNOISE. 

115  C NUN  --  CONTROLS  Th£  NUMBER  OF  MONTE  CARLO  PUNS. 

116  C JUNK  — USED  FOR  PRINTING  OUT  A MATRIX  ELEMENTS  ONLY  ONCE  IN  SUBR.  SYSINT. 

117  C OTH  — USED  AS  A STEP  SUE  FOR  COVAR  IN  SYSINT  SUBR. 

118  C KQUNT  — CONTROLS  THE  FREQUENCY  OF  CALCULATIONS  OF  A MATRIX  COEFFICIENTS 

119  C KAT  — USEO  AS  COUNTER  FOR  COVAR  INTEGRATION  ROUTINE. 

120  C KICK  --  CONTROLS  THE  FREQUENCY  OF  PRINTOUT  FOR  THE  COVARIANCE  MATRIX 

121  C KK1.  KK3,  KK5, K400  --  USEO  IN  COEFF  SUBR.  TO  CONTROL  THE  CALCULATION. 

122  C B 2 C I > — B MATRIX  ELEMENTS  USEO  IN  COVAR  SUBR.  FOR  CALCULATING  P( 1» 1J ,PI  4,4J 

123  C AVO(I),  BVD<  I ) — USEO  FOR  CALCULATING  NL  'A*  MATRIX  COEFFICIENTS  IN 

124  C SYSINT  AND  VANEMD  SUBRS. 

125  C P1(I,K),  DP8(I,K1,  DP9(I , K1  --  USEO  AS  TEMPORARY  STORAGE  FOR  COVARIANCE 

126  C INTEGRATION 

127  C KIT  — USEO  AFTER  SWITCHING  FROM  COVAR  TO  MONTE  CARLO  PROGRAM. 

128  C IKPR  — USEO  TO  PRESERVE  THE  VALUE  OF  XPR. 

129  C KINTER  — ATTAINS  A VALUE  OF  NUMtl  IN  MAIN  AND  DOES  NOT  CHANGE  THEREAFTER. 

130  C KONTER  --  USEO  IN  SYSRUN  ANO  INITIALIZED  IN  MAIN  TO  CONTROL  SWITCHING  FROM 

131  C COVAR  TO  MONTE  CARLO  PROGRAM  AFTER  VTIHE2. 

132  C Nl,  K1  — USEO  IN  SYS INT  TO  CONTROL  THE  ENSEMBLE-AVERAGING  INTERVAL. 

133  C I S2  — USEO  TO  CALCULATE  RANDOM  NUMBERS  EQUAL  TO  THE  OROER  OF  THE  SYSTEM. 

134  C ***************************************************************************** 

135  C 

136  RE4O(5,lISKSP,SKSY,TSAMP,DTSAMP,CROSPT.CR0STPfSYGBIS»SZC(!LS, 

137  lHQG,DQG,TAUZ,TAUY,TAUL,GYZ,RAl,RB2,WPl,0Pl,RKi,PYAKl,PYBKl,PYIKl, 

138  2HQ1 ,DQl,PYLIH,RHH,GeiAS,QBIAS.RBIAS,PB,QB,RB,UE,VE,WE, 

139  3THETA.PH1  ,P  SI  i X , Y ,Z  , S .D.XTCG , YTCG,  ZTCG  ,RL1  .RL2  , HUE,  WVE.WWE,  S I ,*0, 

140  4WF,  X IXO  ,X  IYO,  RLCGO,  ROCGOt  ROCGPt  VGAIN  t VLIM, VRLIM 

141  C 

142  WRITE! 4)  S< SP  , SKSY,  TSAMP, OTSAHP  ,C  ROSPT .CROSTP .SYGBISt SZGBIS . 

143  lWQG,OQG,r  AU  Z, TAUY,  TAUL, GYZ  ,RA1,RB2,WP1,  DPI,  RK  1, PYAK  1,P  YBK1  ,P YIK1 , 

144  2WQ1,0Q1,PYLIM,RLIM,G8IAS,0BIAS,RBIAS,PB,0B,RB,UE,VE,WE, 

145  3THETA,PHI,PSI.X.Y,Z . S.O . XTCG. YTCG ,ZTCG .RL1.RL2 , HUE ,WVE ,WWE,SI ,W0, 

146  4WF*XIX0,XIY0,RLCG0,RDCG0,RDCGP» VGAIN, VLIM, VRLIM 

147  C 

148  C **************************************************************************** 

149  C TO  RJN  THE  PROGRAM  AS  NOMINAL,  COVARIANCE,  OR  MONTE  CARLO  OR  THEIR 

150  L COMBINATIONS,  USE  THE  FOLLOWING  INITIALIZATIONS. 

161  C NQHINAL  FLIGHT 

152  C VTIME1  * 0.0 

153  C VTIME2  » (THE  VALUE  OF  ‘TSTOP'J 

154  C KINTER  * CNUM+1'  I 

155  C KONTER  = (•NUH*1»  ) 

156  C NOMNAL  « 0 

157  C COVARIANCE  PROGRAM 

158  C VTIME1  • 0.0 

159  C VTIME2  * (THE  VALUE  OF  »TSTOP') 

160  C KINTER  * ( • NUM+1  • ) 

161  C KONTER  * ( • NUMU  * ) 

162  C NOMNAL  * 1 
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Caro 

163 

C 

MONTE  CARLO  PROGRAM 

lo* 

C 

VTIME1  » (THE  VALUE  OF  'TSTOP'J 

16S 

C 

VTIHE2  « ( THE  VALUE  OF  'TSTOPM 

166 

C 

MINT  HR  » 1 

167 

C 

KONTER  » 1 

168 

C 

NOMNAL  « 1 

169 

C 

170 

C 

171 

VTIME1  = 0.0 

172 

VTIME2  = 12.02 

173 

NUH  » 25 

179 

K INTER  « 26 

175 

KONTER  < 26 

176 

NOMNAL  « 0 

177 

VNOISO  « 2.0 

178 

C 

179 

C 

180 

C 

NOMINAL  — MONTE  CARLO  PROGRAM 

181 

C 

VTIHEl  * 0.0 

182 

C 

VTIME2  « (SPECIFY  THE  SWITCHING 

TIME) 

183 

C 

KINTER  = ( 'NUM+l* i 

189 

C 

KONTER  = (•NUMH'I 

185 

C 

NOMNAL  = 0 

186 

C 

COVARIANCE  --  MCNTE  CARLO  PROGRAM 

187 

C 

VTIHEl  « 0.0 

188 

C 

VTIME2  » (SPECIFY  THE  SWITCHING 

TIME! 

189 

C 

KINTER  x («NUH*l‘J 

190 

c 

KONTER  x (•NLNU'J 

191 

c 

NOMNAL  x 1 

192 

c 

MONTE  CARLO  — COVARIANCE  PPOGRAM 

193 

c 

VTIHEl  = (SPECIFY  THE  SWITCHING 

TIME) 

199 

c 

VTIME2  x (THE  VALUE  OF  'TSTOP') 

195 

c 

KINTER  x 1 

196 

c 

KONTER  x 1 

197 

c 

NOMNAL  « 1 

198 

c 

MONTE  CARLO  — COVARIANCE  — MONTE 

CARLO  PROGRAM 

199 

c 

VTIHEl  = (SPECIFY  THE  SWITCHING 

TIME) 

200 

c 

VTIHE2  » (SPECIFY  THE  SWITCHING 

TIME) 

201 

c 

KINTER  » 1 

232 

c 

KONTER  = 1 

203 

c 

NCMNAL  » l 

209 

c 

** •********♦♦♦♦** **************** *♦*«***»♦******♦»*+************•******+**** 

205 

c 

206 

NUHMxNUM  l 

207 

JUNK  * I 

208 

IS!  « 0 

209 

OTH  x 0.0 

210 

E2N0IS  x 0.0 

211 

EYNUIS  « 0.0 

212 

VBEPS  « 0.0 

213 

VBEPSZ  » 0.0 

219 

VBEPSY  = 0.0 

215 

k:kk«o 

216 

K IK  1 » 0 

4 

1 
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jr 

t 


i 

i 


m. 


$ 

| 

y 

n 


1 


i 


i 


i 

i 

* 


i 

) 


f 


CARO 

217 

218 

219 

220 
221 
222 
223 
229 

225 

226 

227 

228 

229 

230 

231 

232 

233 
239 

235 

236 

237 

238 

239 

290 

291 

292 

293 
299 

295 

296 

297 

298 

299 

250 

251 

252 

253 
259 

255 

256 

25 7 

258 

259 

260 
261 
262 
263 
269 

265 

266 

267 

268 
269 
2/0 


KOUNT  * 10 

KAT  * 0 

KICK  « 90 

Al<  * 1 

KOK  * 0 

K900  « 0 

KKX  * 1 

KK3  * 0 

KK5  * 0 

VP  « 1.0 

82(  II  * 6750.0 

82(2)  = 6750.0 

TMVEL  = -0.10 

TMRNGE  * 10000.1 

00  88  1*1  «9 

AVOID  * 0.0 

88  avodi  * O.o 

DO  29  1*1 f MS 
00  29  K*1 »MS 
A2<I.K)  • 0. 

DP(I.K)  * 0. 

P1U.K)  * 0.0 
0P8U.K)  * 0.0 
0P9U.K)  * 0.0 

C SUBROUTINE  INT A2H  IS  USE0  TO  INITIALIZE  THE  A MATRIX  COEFFICIENTS 
CALL  INTA2M 

R£A0(5t 621 (AREA! 1 1 .1*1.30) 

AREA(31 ) » 0.0 

C ***  READ  THRUST  AND  AERODYNAMIC  TABLES  FROM  CAROS 
C 

WRITE  ( 6 .9001 

KNT 1 * 1 
KNT2  * 3 
IL  * 1 

30  READ  ( 5,S10)  I , J , K, ( OXOYDZ(U  , L=KNTi, KNT2I , LB L 

IF  (I.EQ.9J9IG0  TO  90 
WRITE  (6  .9201  L8L 

KNT  1 * KNT  2D 
L * KNT2/3 
1A00IL)  * IL 
KNT 2 * KNT2  + -- 
IF  ( J.EQ.  0)  J'‘l 
IF  (K.£Q.O)K«l 
IU  * I*J9K*II.-1 

READ!  5,9?0)  (AERO(  L)  ,L*IL,IU) 

IL  * IU*l 
GO  TO  30 
90  CONTINUE 
G = 32.17 
RTO  * 57.2957795 

C ♦**  CALL  INDIA  TO  INITIALIZE  THE  PROGRAM  AND  READ  RUN  OATA 
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271  C 

272 

273  C 

274 

275 

276 

277 
276 
279 
260 
261 
282 

283 

284 

285 

286 
267 
288 

289 

290  1004 

291 

292  1005 

293 

294 

295 

296  31 

297 

298  81 

299 

300 

301  308 

302 

303 

304 

305  33 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317  C 

318 

319  C 

320 

321 

322 

323 

324 


CALL  INITIA 

MSI  * 33 
XNUM  « NUH 
XNUM1  « XNUN*XNUM 
XNUH2  « XNUM  - 1.0 
XNUM3  - XNUM/XNUM2 
NIOTAL  ■ 1200 
HIOT  * NT0TAL/40 
IX  • 31571 
DUN  * 0.1 
JX  * 28651 
OAHU  = .12 
SIGU  * 1.0 
XMEANU  * 0.0 
KIT  * 0 
IKPR  * 40 
00  1004  IS*1.15 
YNORMI I Si  ' O.C 
DO  1005  IS* liMS 
TEPSTGI IS  1 * o.o 
00  31  K 1= 1. MSI 
00  31  N 1*  1. 40 
S2(K1,N1)  * 0.0 
SMK1.N1)  * 0. 

00  81  1*1 i 40 
S 3 f 1 ) = 0.0 
00  308  1*1. MS 
S4II1  * 0.0 
TPANFR ( I ) = 0.0 
XHEAN  = 0. 

00  32  Ml  = l.NUMM 
DO  33  1=1.4 
XNORM(I)  = 0.0 
WP  = PB*RTO 
WQ  = QB»RTO 
»R  = R8*RT0 
B THETA  = THETA*RT0 
bPH  « PHI *RTO 
BPS  * PSI*RTO 
TMVEL  * -0.10 
TMRNGE  * 10000.  1 
N1  * 39 
K1  » 40 
K0UNT1«  0 

************************* 

IF( VTIME1  «E0. 0. OICO  TO  32 

************************* 

NS  * 2 
VS(  1)  * 0. 

VS121  * 0. 

NT  = 6 
NR  * 6 
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CARO 

325 

326 

327 
326 

329 

330 

331 

332 

333 
339 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 


NA  * 15 

00  4 IS*1, 15 

4 VA(IS)  * 0. 

NV  ■ 4 

DO  5 IS*1,4 

5 VVUSi  * 0. 

UT(l)  * 0. 

urm  * 0. 

UT(31  * 0. 

XT(  1)  = 10000. 

XT  (2  ) = 0. 

XT(  3)  = 0. 

REMIND  4 
C 

READ ( 4)  SKSP«SKSY*TSAHP,OTSAMP»CROSPT , CROSTP  *SYGB  IS,  SZ  G8I S , 

1WQG , 03G, T AUZ, TAUY, TAUL iGYZ  ,RAl ,R82, WPl ,0P1. RKl, PYAK1 ,PY8Kl , PYIK1 , 
2WQ1,0Q1,PYLIM,RLIM,GBIAS,QBIAS,RBIAS,PB,QB,RB,UE,VE,WE, 

3THETA.PHI  .PSl.X.Y  ,Z  , S ,0  ,XTCG, YTCG, ZTCG,RL1 , RL2  »WUE,WVE,WW6, S I ,W0, 
4UEtX  1X0  iXIYO, RLCGOi  ROCGO, ROCGPt  VGAIN, VLIH,VRLIM 
C 

OT  * 0.250-02 

1 PR  * 40 
CALL  INTHRC 
CALL  INTRAN 
CALL  INAUPT 

IF { KI  NTER.  EQ.  NUMM1GQ  TO  32 
C **»  CALL  TOTAL  SYSTEM  RUN  CONTROL  ROUTINE 
C 

CALL  SYSRUN 
KINTER  - KINTER  «■  1 
32  CONTINUE 

IF( VTIMEl.EQ.O.OJGO  TO  306 
00  302  I*  1,MS 
DO  302  IM»1,MS 

0P9I  I , I Ml  * S2C  ,N2I*S2(IM,N2I*XNUM3/XNUMl 

302  DPB(I,IM1  » 0P8(  ItIM)/XNUM2  - DP9II,IMI 
P (32  ,32 ) « 0P8(32  *32  ) 

P(  33>  33)  * DP8(  33,331 
00  305  1*1,31 
00  305  IM-1,31 
P ( I , IM1  * OP 8( I , IN) 

0P3  ( I,  IM)  * 0.0 

305  0P9  ( I , I M)  * 0.0 
00  304  IM*1 ,MS1 
00  303  N1=1,MT0T 

S2 ( I M,N1)  = S2 ( IM.Nl )*S2  < IH, Nl 1 *XNUM3/XNUM1 
Sl(  IHiNl)  = SUIH.NL)  /XNUM2  - S2(IM,Nll 

303  CONTINUE 

304  CONTINUE 

00  311  IM«l,MSl 

311  WRITE (6, 202  1 IM,  (Sl(  IM,Nl)  ,N1-1,  MTOT  I 

WRITE!  6,9881  <S3(  II  ,I«l,MTOTI 
IFIVTIMEI.GE.TSTOPIGO  TO  307 

306  0 0 3 6 1*1,4 


36  XNORH ( I ) * 0.0 
CALL  SYSRUN 

IF!  VTIKE2.GE.TST0PJG0  TO  307 

C ************************* 

G1  = 0.0 
G2  * 0.0 

0P9U.1J  • SORT  (PUtU) 

DO  101  1=2. MS 

Loi  op9d,n  = Pti,  H/0P9C1,  li 
00  102  1=2. HS 
K=I-1 

00  103  IJ=1.K 

103  G1  « G1  *•  0P9UJ.I)*0P9(IJ,1) 

0P9(!.n  • SQRT(P<l,I)-Gl) 

00  135  JM*1 .MS 
IF(JH.LE.I)  GO  TO  105 
00  104  Ml»l,K 

104  G2  = G2  * 0P9{H1,!)*DP9{H1,JH) 

DP9(  1 1 JM)  = ( P(  I , JM)  - G21/0P9U.I) 

105  CONTINUE 
102  CONTINUE 

C ************************* 

NUMN  * NUH  - 1 
00  34  HI  = l.NUMN 
00  35  1=1,4 
35  XNORH! I ) =0.0 
N 1 = 39 
K1  = 40 
KOUNT  1=  0 

C ********************* 

T « VTIHE2 
OT  » 0.0025 

C ********************* 

CALL  INSYST 
CALL  INRK4 
00  114  1H=1,HS 

114  TRANFR! IM1  = TEPSTGUH) 

IS2  = HS 

CALL  RANOU 
DO  115  1=1, HS 
DO  115  IH=1,  I 

115  TRANFR(I)  = TRANFR! I > «■  0P9 ( IH, I l*YNORH ( JH ) 

00  113  1=1,15 

113  VA( II  = T RANFR ( 1 1 
UE  = TRANFR (16) 

VE  = TRANFR  (17) 

WE  = T RANFR ( 18  I 
X =TRANFR( 19) 

Y = TRANFR! 20) 

1 = TRANFR ( 21) 

P8  = TRANFR ( 22 ) 

OB  = TRANFR123)- 
R8  = TRANFR  (24) 

THETA  = T RANFR(25 I 
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433 

PHI  * TRANFR(261 

434 

PSI  = TRANFR  (271 

435 

00  3 IS  « 1.4 

436 

3 

VVdSl  < TRANFR ( IS*-27 1 

437 

VSU)  » TRANFR(32) 

436 

VS<2>  « TRANFR(33) 

439 

IPR  « IKPR 

440 

TMVEL  * fMV£ 

441. 

THRNGE  > THRNG 

4 <»2 

hp  « pb*rto 

443 

HO  x Q8*RT0 

444 

HR  = R8*RT0 

445 

6THETA  « TH£TA*RTO 

446 

8 PH  « PHI*PTO 

447 

BPS  « PSI*RTO 

448 

CSV  (11  « EZTMP 

449 

OSV(  21  « EYTHP 

450 

C 

451 

c *** 

CALL  TOTAL  SYSTEM  RUN  CONTROL  ROUTINE 

452 

c 

453 

CALL  SYSRUN 

454 

c 

455 

34 

CONTINUE 

45o 

00  203  IHxl.rtS 

<►57 

00  204  Nl  = l.MTOT 

458 

S2(  IH.N11  = S2(  JH.N  1)  *S2(  IM»N1)*XNUM3/XNUM1 

459 

S1UH.N11  = SI ( IM.N1 I/XNUM2  - S2(lN,Nll 

460 

204 

CONTINUE 

•461 

203 

CONTINUE 

462 

00  211  IH=1,MS 

463 

211 

WRITE (6.202 )IHi(Sl(IN.Nll  ,N1»1,HT0T1 

464 

WRIT  £(6,988  J (S3  (11,  I»l,MTOTl 

465 

3C7 

STOP 

4oo 

1 

FORMAT (8(8F 10.4/ 11 

4o7 

62 

FORMAT  (10F8  .61 

468 

202 

F0RMAT(//1X,'VAR|',12,'  ,Nlt  *' .7EI5.5/5  (13X 

4o9 

900 

FORMAT  (1H1,  50X. 'T-H  AERODYNAMIC  TABLES'! 

470 

910 

FORMAT  (3  13,  IX.3F10.0,  10A41 

471 

920 

FORMAT  ( /45X, 10A41 

472 

930 

FORMAT  (3F10.01 

473 

988 

FORMAT! /IX,' ST I ME  »' .10F10.5/8X,  10F10.51 

474 

END 

4 

t 
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l SUBROUTINE  INITIA 

?.  C *** 

3 C THIS  ROUTINE  READS  VARIOUS  RUN  DATA  FROM  CARDS  AND  INITIALIZES 

4 C THE  REMAINDER  OF  THE  PROGRAM 

5 C *♦* 

6 COMMON  /CNTRL/MGDE .H0LSI4) , I V,D  AT  AHU6 ,4 ) 

7 COMMON  /TIMGS/T,Or,TBO,TSTOP,IPR,J  .LAUNCH 

8 COMMON  /STATEV/NT,U£,V£,WE»X»Y,  Z 

9 COMMON  /ROTATE/NR. PB.Q8.RB, THETA, PHI, PS! 

10  COMMON  /INCEPT/UTI3 ) , XT(  3) 

11  COMMON  /GEOHK/S ,0,XT CG, VTCG, ZTCG, RL1 ,RL2,WJ£,rfVE,XME 

12  DOUBLE  PRECISION  T.OT 

13  CALL  INTHRC 

14  CALL  INTRAN 

15  CALL  INAUPT 

16  READ  ( 5,900)  MQOE.MOLS,  IV , IT,  ITCG,  IRAIL,  !W  INO 

17  GO  TOI 20,30) .MODE 

18  20  REAOI  5,930)  1 CAT AM 1 3,  l),J-l,16),(DATAM(J,2)  ,J«1,4) 

19  READ  ( 5i940)0T,TSTOP, 1PR 

20  IFt  IV.NE.OIREAOI  5 ,910)  UE  , VE , HE  ,X  ,Y  ,Z  ,PB  ,QB,RB,TH6T  A,  PH  I . PS  I 

21  IF  (IT.NE.OIREADl  5,910)UT,XT 

22  I F ( I TCG.NE. 0) REAOI  5 ,910)XTCG,VTCG , ZTCG 

2)  IFURA!L.NE.O)REAO(  5, 9 10)  RL1,  RL2 

24  IFt  IWIN0.NE.0)READI  5.9 10  )*UE,WVE,WW£ 

25  RETURN 

26  30  DO  40  1-1,4 

27  IF  (MDLSI ll.EQ.OJGO  TO  40 

28  REAOI  5,920)  OATAMIl.I) 

29  REAOI  5,910)  I CAT  AMIJ, 11,3-2, 16) 

30  ,0  CONTINUE 

31  RETURN 

32  90D  FURHATU&I5) 

33  910  FORMAT  I 8F10. 0) 

34  920  FORMAT! F20. 01 

35  933  FORMAT  I20A4) 

36  940  F0RHATI2F10. 0,110) 

37  ENO 
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l 

SUBROUTINE  INTA2H 

2 

COMMON  /UTI LTY/G tRTD 

c 

3 

COMMON  /BLOCK 2/  A2(  33.33) 

4 

COMMON  / AUTOK/  HOG  ,DQG. T AU2, TAUY , T AUL.  GYZ.RAl, RB2,  WP 1 ,OP  1.RK1, 

5 

1PYAKI.PY3K1.PYI  Kl.WQl.OOlf  PYLIM.RLIM.GBI  AStQBl  AS.RBIAS 

6 

TMP1  * WQ1*WQ1 

7 

THP2  « 2.*Cai»HC.'1 

8 

TMP3  = PYAK  l*PYBKl 

9 

7 MP4  » PYAKUPYBK1 

10 

TMP5  = HQG*WQG 

11 

TMP6  = 2.*OOG*WQG 

12 

TMP7  « PYIKl*WQl*WQl/TMP3 

13 

C 

14 

C 

***  CONSTANT  *A'  MATRIX  ELEMENTS 

15 

C 

16 

A2(  1.1)  = -3.*TAU2 

17 

A211.2)  = f AUZ  *A2(  lil) 

18 

A2(l»3)  =-TAUZ*TAUZ*TaUZ 

19 

A2(  2. 1)  = 1. 

20 

A2<3,2)  = 1. 

21 

A2(  4, 4)  = -3.*T  AUY 

22 

A 21  4.  5)  = TAUY*A2<4,4) 

'• 

2J 

A2I4.6)  = -TAUY*TAUY4TAUY 

24 

A2(  5.4)  = 1. 

i 

25 

A2(  6.  5)  = 1. 

26 

A2(7,7)  = -2 .*0P1*WP1 

n 

27 

A 21  7,8)  = -KP1*«P1 

T 

28 

A2I7.26)  * -A2(7.8|*RTO 

• - 

29 

A2  (8 . 7 1 = 1. 

A 

JO 

A2(  10.2)  « -TMP7 

, 

31 

A2( 10.3)  « -TMP7*TAUl 

32 

A2  (10.5  ) - TMP7 

l 

33 

A 21  10.6)  - -A2(  10.3) 

34 

A2( 10,10)  — TMP2 

35 

A2(  10,11)  » -TMP1 

36 

A 2 ( 10,23)-RT0*TMP7 

37 

A2  ( 10 ,24 ) — 42(10,23) 

38 

A 2 < 11.10)  « 1. 

39 

A 2 ( 12.  2)  • A 2(  10,  2) 

40 

A2 ( 12 , 3)  ■ A 2 1 10.  3) 

t 

41 

A2(  12 , 5)  > A2(  10,  5) 

42 

A2(  12.  6)  > A2(  10,  6) 

43 

A2U2.10)  « TMP4»A2U0,10) 

44 

A 21 12,11)  * THP3fA2( 10,11) 

45 

A2(  12,23)  • A2(  10,23) 

46 

A2<  12  ,241  « 42(  10,241 

47 

A2(  13,2)  ■ -THP7 

48 

A2( 13.3)  - -TMP7*TAUL 

49 

A 2 ( 13,5)  ■ -TMP7 

50 

A 2 < 13,6)  - 42(13,3) 

51 

42(13,13)  « -TNP2 

52 

A2(  13,14)  - -TMP1 

53 

A2( 13,23)  * A 2 ( 12,23) 

54 

72(13,24)  * 42(13,23) 

Y .V ' 


NiiiiiaUt^Au^ 


cZ.tt.  7Y-Y:k£-V-  -~i  C 


-■  -A^tkA,  AJ  a A ^A-,ta.»4ita*»:i 
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55 

A2 (14,13)  * 1. 

?. 

56 

A2(  15.  2)  * A2(  13 . 2) 

57 

A2C15,  3)  * A2(  13.  3) 

i 

53 

A2( 15 . 5)  * A2( 13.  5) 

59 

A2(  15.  6)  * A2(  13.  6) 

n 

60 

A2I15.13)  * TMP4*A2( 13, 13) 

* 

61 

42(15,14)  • TH?3*A2  (13.14) 

J* 

62 

A2(  15.23)  * A2(  13.23) 

■t 

oi 

A2{ 15,241  ’ A2( 13,24 ) 

■* 

i 

P* 

66 

A2(  19,16)  *1.0 

65 

A2(  20, 17)  *1.0 

| ; 

Ob 

A2  (21 , 18 ) *1.0 

; * 

67 

A2(  26,221  * 1.0 

*i  ' 

t 

63 

RETURN 

&* 

r 

£ 

69 

END 

r i 

L 

CARD 

1 

BLOCK  DATA 

2 

COMMON  / SEEKF/  NS , VS (2 ) ,0VS 42) ,0SV ( 8) 

fc  . 

3 

COMMON  / SEEKK/  SKSP.SKSY.T SAMP.OTSAMP.CROSPT .CROSTP.SYGBIS ,S 2GS7S 

S' 

6 

COMMON  / A'jr OP/N A, V A(  15) , OVA1 15 1 ,0V(  7) 

5 

COMMON  / AUTOK/  WCG > OQG.T  AU2.TAUY , T AUL , GY  2 , R Al, RB2.WPI,  DP  1,  RK 1, 

f 

6 

1PYAK1,PY0KI,PYIK1,WQ1,DO1,PYLIH,RLIM,G8IAS,QBIAS,RBIAS 

£ 

7 

COMMON  / V ANES/HV, VV (4 ), 0VV(4 ),  OEK  3) 

. 

8 

COMHON  /VANEK  / VGA)  N, VLI M, VRLIM 

> 

9 

COMHON  /VMG/  H.MS 

* 

10 

DATA  H,  MS/O  .0025,33/ 

P ! 

11 

OATA  SKSP  ,SKSY»  I SAMP.OTSAMP.CROSPT , CROST  P ,S  YGBI S iSZGBIS/3  .,  3.,0  ., 

* 

12 

10 *05 y 0»  * 0 *t  0 • *0«/ 

* 

13 

DATA  NS, VS/  2, 2*0.0/ 

< 

14 

QATa  KQG.OQG »TaUZ ,TAUY » TAUL.GYZ  .RAI.R82.HP1 .DPI ,RKl ,PY AKl , PYBK1 , 

s 

15 

1?Y  I K 1, *0  L,  00  L,  ?YL  (H,  P.L  1H,  G8I  AS,  QB1  AS, RB  IAS/373.,1.,  15.  ,15., 2.  , 

* 

16 

26750. ,12. ,60. ,1 30. , .53, .33,40. , 15 ., 2 .8, 115. . .64, 15. , 7., 1., 0.0, 0.0/ 

> 

17 

COMMON  /MSINCC/SI , WO , WP ,XI XO, XI YO .RLCGO .RDCGO ,ROCGP .XM.XIX.XI Y, 

18 

IPLCG.ROCG 

C 

19 

COMMON  /ROT  ATE/NR.PB  ,Q0,RB,  THET  A,  PHI.PS  I ,OPB,  DQB,  ORB,  DT  HA,  OP  HI 

20 

l,OPSI,SNfHA,CSTHA,SNPHI  .CSPHI.SNPSI  ,CSPSI  ,WF , WO, WR . BTHET A, BPH ,BPS 

[ 

21 

COMMON  /STATEV/NT ,UE,VE,WE,X,Y,2,  OUE.OVE.DWE , DX, 0Y.D2 

22 

COHMON  /UTILTY/G.RTO 

23 

COMMON  /GEOMK/S ,0,XTCG,YTC3,2TC3,Rl 1,RL2,WUE,WVE,WWE 

£ 

24 

COMHON  /INCEPT/UT  (3  1 ,XT  1 3 ) , TMVEL.TMRNGE,  8EPS2.8EPSY 

!' 

25 

CATA  G.RTO/32. 17, 57. 2557795/ 

‘ 

26 

DATA  NT  , NR/ 0,6/ 

L 

27 

DATA  P8,0B,F0,UE,VE,WE.THETA,PHI,PS  I , X , Y,  2/0 . , 0 ., 0. , . 1, 0. , 0. , 5. , 

28 

£<) 

OATA  NA,V A/  15, 15*0./ 

30 

DATA  NV.VGAIH.VIIM, VRL I M/4 , 15 . ,20 . , 200 ./ 

M 

OATA  VV/4*0. / 

32 

OATA  S,  O.XTCG.YTCG,  2TCG/  .267,  .584,2.75,  0..0./ 

: 

33 

OATA  Rll,RL2.kUE  , WVE  , WWE/3 . 5 ,6 . 07  ,0.  ,0.  ,0./ 

E 

34 

OATA  SI.WO.WP.XIXO,  XIYO,RL:GO,R0C3O,RDCGP/'.95.8,12l.,19.4,.241,l5. 

35 

Ill ,2.54 ,-.375, -.15/ 

P 

i 

36 

OATA  UT/3*0./ 

i 

37 

OATA  XT/10000.,0.,0./ 

i 

33 

END 

141 


P 

$ 

l 


r 

c 

> 

t 

•? 

K 

f 


K 


I 


I 


1 

I 

t 

J 


| 

f 

t 


t 

i 


i 

; 


I 


i 


CARO 

1 

SUdROUTINE  SYSINT 

2 

C 

«* 

3 

C 

THIS  ROUTINE  INTEGRATES  ALL  EQUATIONS  OVER  1 TINE  STEP 

4 

c 

*** 

'5 

COMMON 

✓TIHES/T.CT, TBO.TSTOP.IPR.J  , LAUNCH 

6 

COMMON 

/STATE V/NT tVT{6)  ,0VTI6) 

7 

COMMON 

/ROTATE/ NR.VRI 6), 0VR(6),SNTHA,CSTHA,SNPHI,CSPHI,SNPSI,CSPSI 

6 

ltUPtWQ, 

,WR,BTHETA,BPH, BPS 

9 

COMMON 

/SEEKR/  NS.VSI2)  »'0VS(2)  rOSVIS) 

10 

COMMON 

/ AUT  OP/NAt  VAI 15)  t OVAl  151.0VA017) 

U 

COMMON 

/VANES/NV.VV (4 ) * 0VVI4 ) i DEL  13 ) 

12 

COMMON 

/MSINCG/SI,WO,Hf»XlXO*XJ  YO  ,RLCGO  ,RCCGO  ,ROCGP,XM,XIX,  XI Y 

•13 

liRLCG.ROCG 

14 

COMMON 

/VANEK  /VGAI  N«  VLIM,  VRLIH 

15 

COMMON 

/ AUTOK/  HQG  ,08G«TAUZ  tTAUY, TAUL.SY2 ,RAl,RB2, WPl ,DP1 ,RK1 1 

16 

1PYAK1 jPYBKl , PYIKl.WQl tOQl , PYLIM, RL IM,  GBIAS,QBIAS«A61AS 

17 

COMMON 

/VMG/  H*MS 

16 

COMMON 

/VMG1/P1(33,33),0P8(33,33) 

19 

COMMON 

/VMG9/JUMK,VTIMEl,VTJKE2  .VNOISO,  NUHM.NOMNAL 

20 

COMMON 

/BLOCK  1/PI33, 331 ,OPI  33,33) ,DP9<33,33) 

21 

COMMON 

/ BL0CK2/  A2I33, 33) ,K IK, KOUNT «KICK,KAT,B2(2) ,K400 

22 

COMMON 

/3L0CK4/  VV514)  .0LTC14) 

23 

COMMON 

/8L0K1/0TH 

24 

COMMON 

/8LIK1/BPHISM 

25 

COMMON 

/3LIK2/  AV0I4)  ,BV0I4) 

2c 

COMMON 

/ INCEPT/UTI3) , XT! 3) • TMVEL.TMRNGF, 

27 

COMMON 

/MBL0K1/ KCUNT 1 tXNORKI 4) , SI (33,40 ) 

28 

COMMON 

/M3L0K2/SIG1  fOUMtXMEANflXtNl  ,11.12  ,Kl  ,N2 

29 

COMMON 

/M8L0K3/  S2I 33,40) 

30 

COMMON 

/MVMG/S3 (40), KINTER 

31 

COMHON 

/MVMG2/TEPSTGI33), KIT, IKPR, TMVE. TMRNG  ,EZTMi  JYTMP 

32 

COMMON 

/MVMG3/S4I33 ) 

33 

00U8LE 

PRECISION  T,0T , HALFOT 

34 

DIMENSION  QTI12).QR( 12) , QA( 301 , QVl 8) 

35 

c 

36 

c 

**,»**»#,****»**,*»**«»* 

37 

IFIT.LT 

•VTIME2IG0  TO  4 

38 

IFIKIT. 

NE.OJGO  TO  7 

39 

KINTER 

« 1 

40 

KIT  • 1 

41 

00  1 IS 

i » 1,15 

42 

1 

TEPSTGl  IS)  * VA(IS) 

43 

00  2 IS 

* 1,6 

44 

TEPSTGl  I S*  IS)  = VTIIS) 

45 

2 

TEPSTGl  IS«-21)  = VRI  IS) 

46 

00  3 IS 

•1,4 

47 

3 

TEPSTGl  I S*2 7)  « VVI  IS) 

48 

TEPSTGl 32 ) - VSI 1) 

49 

TEPSTGI33 ) » VS (2 ) 

50 

IKPR  « 

IPR 

31 

TMVE  * 

TMVEL 

52 

TMRNG  * 

TMRNGE 

53 

EZTMP  * 

OSVI  1) 

54 

EYTMP  » 

OSV (2) 

V. 
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55 

56 

57 

58 

59 

60 
61 
62 

63 

64 
o5 
66 
£.7 
68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
60 
81 
82 

83 

84 

85 

86 
67 
88 
69 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
roi 
102 

103 

104 

105 

106 

107 

108 


WR1T£(6*8)(TEPSTG(I)*1* 1*331 *TKV£iTHRNG  ,EZTMP,£YTMP 
8 F0RHAT18E15.6/418E15.6/ )) 

c ,*******••••«•••«•••*•*• 

C 

4 IF<  KINTER.EQ.NUHHJGO  TO  191 

7 OTT  « SNGLIOTJ 

SIG1-  SORT ( l./OTI  1 

11  * 1 

12  « 2 

CALL  RANOG 
11*3 
12*4 
CALL  RANOG 

191  00  40  KUT  =1,4 

GO  TO  <30,10,20,10) ,KUT 
10  T « T+HALFDT 

GO  TO  < 15,20) ,J 
15  CALL  THRCON 

20  CALL  AUTOPT 

CALL  VAN END 
CALL  TRANSH 
CALL  ROTATH 

30  CALL  RK41NA , VA,QA ,KUT  ) 

CALL  RK4INV,VV,CV,KUT J 
CALL  RK4< NT ,VT,QT,KOT) 

CALL  RK4)NR,VR,CR,Klir J 
40  CONTINUE 

CALL  AUTOPT 
CALL  VANEMO 
CALL  TRANSH 
CALL  ROTATH 
C 

c ************** 

IF(K  INTER  .NE.NUHrllGO  TO  1001 
IFIT.LE.VTIHEDGO  TO  1001 
I F( N0HNAL.EQ.0IGQ  TO  1001 

c ************** 

c 

c 

C ***  NJNLINEAR  ’A’  HATRIX  ELEHENTS 

C IF(ABS<8PHISH),GE.<  RLIH-0.001))  GO  TO  12 

A2( 9, 7 1 * RK1*(RAI*RB2»AZ<  7,  7) ) /RA1/RB2 
A2  (9  ,8 ) * RKI*(1.  + A2(7,8))/RA1/RB2 
A2(  9,26)  » RKi*A2<7,26) /RA1/R82 
GO  TO  13 

12  A2(9 ,7)  =0.0 
A2<9,0)  =0.0 
A2 (9, 26 ) =0.0 

13  !F< ABS(VA<12) ) . GE. ( PYLIM-O.OOI ) ) GO  TO  22 
A2I 28, 12)  = VGA  IN 

A2130.12)  = VGAIN 
50  TO  23 

22  A2(28, 12)  =0.0 
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109 

A2(  30,12)  >0.0 

110 

23 

IF(  A3SI  VA(  15)  >.G£.(P VLIM-0. OOll) 

111 

A2129.151  • VGA  IN 

112 

A2(  31,15)  > VGAIN 

113 

GO  TO  33 

114 

32 

A2  (29(15)  >0.0 

119 

A2(  31*1 5)  >0.9 

116 

33 

ifuasivvin)  .ge.i  vlin-o.oodi 

117 

A2  (28  >28)  > -VGAIN 

118 

GO  TO  43 

119 

42 

A2(28>28)  *0.0 

120 

43 

If ( A8S( VV<2) ) . GE. ( VLIM-0 .001 ) ) 

121 

A2<  29.29)  « -VGAIN 

122 

GO  TO  53 

123 

52 

A2(29>29)  « 0.0 

124 

53 

If  ( ABS(  W(3)  1 .GE.I  VLIM-0. 001) ) 

125 

A2I30.30)  > -VGAIN 

126 

GO  TO  63 

127 

62 

A200.30)  -0.0 

126 

63 

If  ( A8S(  VV(4) ) .GE.I  VLIM-0. 001)) 

129 

A2(  31  >3  1)  —VGAIN 

130 

GO  TO  73 

131 

72 

A2(31 .31)  >0.0 

132 

73 

CONTINUE 

133 

If ( A8S (AVO(lt).GE.(VRL IM- 0.001) ) 

134 

A2( 28.7)  - A2 (9 ,71* VGAIN 

135 

A2i 28. 8)  » A2( 9.8I*VGAIN 

136 

A2I.28.9)  - 0.1*VGAIN 

137 

62(  28,26)  «A2(  9 .26)  * VGAI  N 

138 

GO  TO  84 

13? 

83 

A2  (28 .7  ) - 0.0 

140 

A2I28.8)  * 0:0 

141 

A2I28.9)  « 0.0 

142 

A2I28.12)  -0.0 

143 

A2(  28,26)  =0.0 

144 

A2 ( 28 , 28 ) =0.0 

145 

04 

I '(  ABSI  AV0(2) ) .GE.I VRLIM-0. 001) ) 

146 

A2(  29,7)  > A2I28.7) 

147 

A2( 29 ,8 ) > A2I28.8) 

148 

A2(  29,9)  • A 2 < 2 8,9) 

149 

A2I29.26)  > A2(  28,26) 

ISO 

GO  TO  94 

151 

93 

A2(  29,7)  >0.0 

152 

A2( 29,8 ) * 0.0 

153 

A2  ( 2 9 , 9 ) - 0.0 

154 

A2(  29,15)  >0.0 

155 

A2I29.26)  -0.0 

156 

A2( 29,29)  =0.0 

157 

94 

IF(  ABS( A V0(  3)). GE.I  VRLIM-0. 001)  1 

158 

A2I30,  7)  — A2(28,7) 

159 

A 21  30,  8)  — A2(28,8) 

160 

A2(30,  9)  --A2J  28,9 ) 

161 

A2  (30,26)  — A2(28,26) 

162 

GO  TO  104 

30  TO  32 


S3  TO  42 


GO  TO  92 


30  TO  62 


GO  TO  72 


GO  TO  83 


GO  TO  S3 


30  TO  103 
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loi 

103 

A2( 30>7 ) * 0.0 

lfc4 

A2(30,  61  *0.0 

165 

A2(  30.  91  *0.0 

156 

A2(30« 12)  *0.0 

167 

A2(  30,261  *0.0 

lo3 

A2(30,30)  *0.0 

159 

106 

IF( ABS  ( AVD(4 ) ) .GE.I7RL  IH-0  .001) ) GO 

170 

A 2 ( 31  > 71  «A2(30,7> 

171 

A2(31>  8)  = A2( 30,8) 

172 

A2(31t  9)  *A2{30|9) 

173 

A2(  31,26)  * A2(  30,26) 

179 

GO  TO  114 

175 

113 

A2I31.7)  * 0.0 

176 

A2(31t  81  =0.0 

177 

A2(31t  9)  =0.0 

178 

A2(3l,15)  = 0.0 

179 

A2<  31«  26)  *0.0 

180 

A2I31.31)  *0.0 

1S1 

114 

I F(  BVOI  1). IE. 0.0) GO  TO  133 

182 

A2(28,7)  * 0.0 

183 

A2  (28 18  ) * 0.0 

189 

A2(20,9)  = 0.0 

Ida 

A2I28.12)  =0.0 

186 

A2 (28 ,26)  =0.0 

187 

A2(  28,28)  =0.0 

1S8 

133 

IF(6VD(2) .LE.O.OIGO  TO  143 

189 

A2(  29 1 7)  = 0.0 

190 

A2I29,8)  = 0.0 

i >1 

A2(29,9)  = 0.0 

192 

A2(  29,15)  *0.0 

19  3 

A2<  29,  261  *0.0 

199 

A2(  29,29)  *0.0 

195 

143 

IF(8VD(3),LE.O.O)GO  TO  153 

196 

A2( 30,7)  * 0.0 

197 

A2I30,  8)  *0.0 

198 

A2  (30,  9)  *0.0 

199 

A2( 30,12)  *0.0 

200 

A2(  30,26)  *0.0 

201 

A2  (30,30)  *0.0 

202 

153 

IF(BV0(4).LE.0.0)G0  TO  163 

203 

A2 (31,71  * 0.0 

205 

A2 ( 3 1 , 8)  *0.0 

205 

A2I31,  9)  =0.0 

206 

A2(31t  15)  * 0.0 

207 

A2 ( 31 ,26)  =0.0 

200 

A2(  31,31)  =0.0 

209 

163 

COUTINUE 

210 

A2(  25,23)  «CSPH  J 

211 

A2(  25,  241  = -SNPHI 

212 

A2  ( 2 7 , 2 3 ) = SNPHI/CSTHA 

213 

A2(  27,24)  * CSPHI/CSTHA 

216 

A2(26,23)  = SNTHA*A2(  27,23) 

215 

A2<26,24)  = SNTHA*A2 (27,24) 

216 

A2(  25,26)  = -VR(2)*SNPHI-VR(3)»CSPHI 

■iiXi 
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217  A2(26,25>  * -A2!25,26)/!CSTHA*CSTHA) 

213  A2( 27 1 261  * !-VR! 3)*SNPH!*VR! 2) *CS?HI l/CSTHA 

219  A2(26>26)  *A2 (27,26 )*SNTHA 

220  A2<  27,25)  *-A2l  26,25)»SNTHA 

221  IFIKGUNT.NE.IOIGO  TO  111 

222  KOUNT  * 0 

223  CALL  COE FF 

229  C •*•*******•*••*»*•** 

225  IF! JUNK. £Q. 0)60  TO  111 

226  00  333  I*  l,HS 

227  333  MRITE16 ,399  ) I *!  A21 1 »K),K*1,  I) 

223  JUNK  * 0 

229  C **•*»•****••••**«••* 

2J0  111  DTH  = SNGLIOT) 

231  OTH  * 0 TH/2.0 

232  DO  222  IJ-1,2 

233  KAT  * 1 

239  00  222  IJ-1.2 

235  CALL  COVAR 

236  CALL  RUNGKP 

237  222  KAT  * MT  M 

233  DO  29  11*1, HS 

239  IFIPIII  ,1I1.GE.I,0£-10)GO  TO  29 

290  00  28  I J* 1,MS 

291  P(II,IJ)  » 0.0 

.292  PUJ.II)  * 0.0 

293  28  CONTINUE 

29f  29  CONTINUE 

295  1F(  KICK.NE.901G0  TO  299 

296  C *»****»»* 

297  HR1 TE 16  ,125 ) I VT II), I *9, 6) 

298  C *****♦»*• 

299  WRITEI6,129)T 

250  00  288  1*1, MS 

251  288  URITE(6,11)I,(P(  1,K) ,K-1,I) 

252  KICK  * 0 

253  299  CONTINUE 

259  KICK  » KICK  ♦ 1 

255  KOJNT  « KOUNT *1 

256  399  F0RMAT!//1X,'A!' ,12,' , J)  *•  .7E15.5/9  IUX,7  E1S  .5/ ) ) 

257  u FORMAT!// IX* ’P! 12* • « J)  * • , 7E 15. 5/9( 1 IX,7E15. 5/1 ) 

253  129  F0RMATI1X TIME  * *,F8.9) 

259  125  FORMAT!  * X»»,E15.  5,'  Y*'  ,E15.5,'  l*’  ,E15.5) 

200  C ********************************* 

201  1001  IF!  KI NTER.E0.NUMM)G0  TO  6 

262  C *******•***»*•*»«♦**♦♦**♦***»*♦** 

263  N1  « N1  •>  1 

269  IF  t Nl.NE. Kl) GO  TO  6 

265  Kl  * N1  ♦ 90 

266  N2  ■ Nl/90 

267  00  201  IM  ■ 1,15 

268  S2(IH,N2)  * S2(1M,N2)  ♦ VAUM) 

269  201  S1IIM.N2)  ■ S1!IM,N2)  ♦ VA( 1M|*VA! 1 M) 

270  00  202  IH«1 ,6 


CARO 

271 

S2UH*15.N21  » S2(IM*-15»N2 J ♦ VTIIM) 

272 

202 

Sl(IN4l5,N2)  « Sl(  IH4l5,N2)  4 VT(  I M)  • VT  (I H) 

273 

00  203  JM*1 16 

274 

521  IM421  ,N2)  « S2(  I H421  ,N2)  4 VRlIHi 

275 

203 

Sit  !M+21iN2i  • SHIM42i,N2)  4 VR{IH)*VPLtIM) 

276 

00  207  IH»1,4 

277 

S2(  IH+27»N21  ■ S2UH427.N21  4 VWlIMI 

27d 

207 

S1(IM427,N2)  * S1UM427,N2)  4 VV( IH)*VVt  IHI 

279 

00  208  IH-1,2 

280 

S2(1H431,N2)  « S2(1H431,N2)  4 VS(IH) 

281 

203 

S1(IM431,N2)  * SKIM431.N2)  4 9S( IHJ*VS( 1H) 

232 

IFtT.LT.lVTIHEl  - 0.0025) .OR.T.GE.VT IME2) GO  TO  307 

283 

00  303  I* If  15 

234 

303 

S4(  I ) * VA(  I ) 

265 

00  304  1*1,6 

266 

S 4 ( 1 415  > * VT(I) 

28  7 

304 

S4(  1 421 ) = VR(U 

283 

00  305  !=1,4 

289 

305 

S 4 ( 1 427 ) * VV(l) 

290 

OO  306  1*1,2 

291 

306 

S4I  I431J  * VSU  ) 

292 

00  301  1*1, NS 

293 

00  301  IH*1,KS 

294 

301 

0P8(I,IM)  * 0P8( I » IM ) 4 S4tn*S411Ml 

295 

307 

T1  * SNGL1T) 

296 

S31N2J  * 71 

297 

6 

RETURN 

298 

ENTRY  INSYST 

299 

HAIFOT  * .5040*0T 

300 

RETURN 

301 

ENO 

CARO 

1 

SUBROUTINE  RANOG 

2 

COMMON  /M BLOK  1/KOUN T 1 , XN0RM1 4)  ,51133,40) 

3 

COMMON  /MBL0K2/S1G1  »DUM,XMEAN,  !X,N1,I1,I2,K1 

4 

C *** 

5 

C 

THIS  ROUTINE  CALCULATES  THE  NORMALLY  DISTRIBUTED  RANDOM 

6 

C 

NUMBERS  • XNQRM’ 

7 

C *44 

8 

IY  * 1997 1*  IX 

9 

IYP-IY/1048576 

10 

IX*IY*IYP *10485 76 

11 

AX*  IX 

12 

U-AX/1048576. 

13 

IF1U.LE  ,0.0)U*-U 

14 

IX*  IY 

15 

7«SQRT(-2.0*ALOG(OUM)  )*S1',1 

16 

XNORM  (ID  * 2*C0S(  6.28318*  UDXHEAN 

17 

XN0RM1I2)  « 2*SIN16.28318*U)4XMEAN 

18 

0UM*U 

19 

RETURN 

23 

ENO 

aaa;*-?^  v.  -,  ■a«.AWA^..  ■*.- >a^ag^i£^  |T| , - 
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1 SUBROUTINE  RANDU 

2 C 

3 c *************•**•********•****»*****••*•*****•♦**♦****•***••*♦*••*** 

4 C THIS  PROGRAM  GENERATES  YFL  WHICH  IS  UNIFORMLY  DISTRIBUTED  BETWEEN  0 ANO  1 

5 c ********••*•****#*«*****************•*♦*•*•**********♦*****•**»••*** 

6 C 

7 COMMON  /HVMG1/J  X,  YNORHl  33 ) • DAMU, SI GU« XMEANU , I S2 

8 00  1 W.IS2 

9 JY  * JX*65539 

10  IFl  JY.LT.OU  Y*JY*214  748  36474 1 

11  JX  « JY 

12  YFL  « JY 

13  YFL  » YFL*0.46566i3E-9 

14  l * SQRT<-2.Q*AL0G(  DAHUI  *SI GU) 

15  YNJRH(I)  « Z*C0S(6.28318*YFL»4XHEANU 

16  1 OAMU  « YFL 

17  RETURN 

18  END 
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FUNCTION  XLIMIT! V,VLIHJ 

2 

IF<ABS(VI-VLIMI40,40,10 

1 3 

10 

IF  IVI20, 30,30 

\ 9 

20 

XLIMIT  = -VLIH 

1 3 

RETURN 

30 

XLIMIT  =*  VLIM 

i 7 

RETURN 

i 3 

40 

XLIMIT  * V 

! v 

RETURN 

: 10 

ENO 

1 
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1 SUBROUTINE  RK4(N,V,Q,K) 

2 C *** 

3 C THIS  ROUTINE  INCREMENTS  VARIABLES.  GIVEN  THEIR  DERIVATIVES  ACCORDING 

4 C T3  THE.  PUN3E-KUTTA  4 POINT  SCHEME. 

5 C **• 

6 COMMON  /TIM£S/T,DT,TBO,TSTOP,IPR»31, LAUNCH 

7 DOUBLE  PRECISION  T,DT  ' 

6 OIMENSION  VIN)tC(N) 

9 00  50  1*1. N 

10  3*N*I 

11  GO  10(10,20. 30, 401.K 

12  10  3(31  * VtJl 

13  3511  * VIII 

14  V(I)  » V(I)+DT3V2*V(3) 

15  30  TO  50 

16  20  Vdl  » Qdl*0T0V2*V(  J) 

17  Q(J1  * Q(3I*V(3)*V(  J1 

18  GO  TO  50 

19  30  Vdl  * 0(I)*OT1*V(J» 

20  0(31  - Q(31*V(31*V(3I 

21  GO  TO  50 

. 2 40  V(I  1 * Qd)+0T1*(Q(3  1^(3)1*0.1666667 

23  50  CONTINUE 

24  RETURN 

25  ENTRY  INRK4 

26  DT0V2  * SNGUOT*. 50*01 

27  0T1  * SNGL(OT) 

28  RETURN 

29  END 


1 SUBROUTINE  RUNGKP 

2 COMMON  /VNG/  H, MS 

3 COMMON  /VMG1/P1 (33,331, DP8I33, 331 

4 COMMON  /6L3CK1/PI  33,331 ,0P(  33,33) 

5 COMMON  /&L0CK2/  A2(  33, 33  ),K  IK.KOUNT  , K ICK ,KA T 

6 COMMON  /3L0K1/0TH 

7 GO  T0( 10, 30 1 ,KA  T 

8 10  00  20  1*1, MS 

9 DO  20  3*1,1 

10  PI*  1,3)  * PI  1,3  1 

.1  OPH (1,31  * 0P(1,J) 

12  20  ? ( I ,3 1 * P(  1 ,3)  * DTH*DPtl  ,31 

13  RETURN 

14  30  VOT  * OTH/2.0 

15  DO  40  1*1, MS 

16  00  40  3=1,1 

17  40  P( I ,31  * PI (1,3)  » VOT* <0P8(  1,31  * DPI  1,3)1 

18  RETURN 

19  END 
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1 

2 

j 

A 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 
lt> 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3b 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


*** 


C 

c 

c *♦* 

c 


c 

c 

c 


SUBROUTINE  SYSRUN 

THIS  ROUTINE  CONTROLS  THE  CALCULATION  OF  THE  'FISSILE 

AND  TARGET-MISSILE  INTERCEPT  POINT,  THE  PRINT  ROUTINE  IS  CALLED 

AS  REQUIRED  TO  PRINT  RESULTS. 

COMNQN  / INCEPT/  UTI3I  *XT(3>  »TNWEl*TNRNGE,BEP5Z*B£P5Y 
CONMON  /STATEV/NT,UB.VB.NB»Xt3|,00EC*> 

COMMON  /COEFS/THR.AERCUBJ 

CONMON  /TINES/T,OT,TBO,TSTOP,!PR,J, LAUNCH 

COMMON  /GEOMK/s!o,XTCG,TTCG,2TCG,RL1,RL2,WUE,HVE,HME 

COMMON  / SEEKR/  NS,BTHTG»BPSIG,0$VI10> 

COMMON  / VANES/  Nv!w<4),DVV«4I.DELQ,£)ELR,0ELP 

COMMON  /TRANSF/8CS6CS(3,3I,  ECSBCS(3»3),  SCSGCS(3,3»,ECSGCS(  3,31 

COMMON  /8LOCK9/KOK 

COMMON  /VMG9/J0NKiVTlMEliVtIM62»VN0IS0i  NUMM 

as  .««*.«*«• 

COMMON  /M8L0K1/M0UNT1,XN0RMI4»,SU33,40» 

DOUBLE  PRECISION  T,DT,SVOT 
DIMENSION  XMOLO(  31,  TOLD!  31 , XSTI 3) 

**************************** 

IF(  K1T.NE  .OIGO  TO  4 
**************************** 

PRINT  DATA  HEADING  AND  INITIALIZE  LAUNCHER  DYNAMICS  INDEX 

CALL  PRHEAO 
LAUNCH  * 1 

INITIALIZE  AERODYNAMICS  ROUTINE,  DERIVATIVES  ANO  TARGET  POSITION. 


OELO  « 0.0 
DELR  « 0.0 
DELP  «0.0 
THR  « 0.0 
T « 0.00 
BEPSZ  *0. 
BEPSY  ■ 0. 
CALL  THRCON 
CALL  TRANSH 
CALL  ROTATM 
CALL  INTGT 
BE»SZ  » 0. 
BEPSY  * 0. 
CALL  INSEEK 
CALL  AJTOPT 
CALL  VANEMO 
J ■ 1 
Ml 

00  5 l«iv3 
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CARO 

55 

5 

XST(l)  - X(I) 

56 

SVDT  * DT 

57 

N * IOINTIDT/. 50-31 

So 

IPR  * N*!PR 

59 

OT  » .50-3 

60 

CALL  INSYST 

61 

CAUL  INRK4 

62 

C 

**************************** 

63 

4 

IF ( IPR.  EQ.40lK*l 

64 

C 

***** **************  ********* 

65 

c 

66 

C *** 

INTEGRATE  MISSILE  EOUATIONS  AND  CALCULATE  TARGET-MISSILE  POSITION. 

67 

c 

66 

10 

KSTEP  *0 

69 

CALL  PR DAT  A 

70 

20 

DO  25  I *1 .3 

71 

XM0LDU1*  XIII 

72 

25 

roLom  * xtiii 

73 

CALL  SYS! NT 

74 

CALL  TARGET 

75 

call  INSEEK 

76 

GO  TO  (70.901  ,J 

77 

70 

IF(  THR 1 80. 80. 90 

78 

80 

J«2 

74 

CALL  ROT ZEP. 

dO 

90 

GO  TO  ( 75. H5, 951 .LAUNCH 

31 

75 

00  76  1*1.3 

32 

76 

XM0LDU1  * X(  I l-XST  ( 1 1 

d3 

CALL  TRANSl ECSBCS.XHOLO.TOLOl 

114 

IF  (TOLDUl.LT  .RL11G0  TO  45 

85 

LAUNCH  * 2 

86 

WRITE!  6.9101T 

87 

GO  TO  45 

08 

85' 

00  86  1-1,3 

89 

86 

XHULOUl  * X(  I l-XST  ( I ) 

*0 

CALL  TRANS ( ECSBCS iXMOLO.TOLOi 

91 

IF(  TOLOt  11.LT.RL2130  TO  45 

92 

LAUNCH  * 3 

S3 

WRITE!  5 .920 1 T 

9*. 

IPT  » IPR/N 

95 

N * IOINT  (T/SVOTl+l 

96 

OT  * OFLOAT (Nl»  SVOT-T 

97 

CALL  INSYST 

98 

CALL  INRK4 

99 

CALL  SYSINT 

100 

OT  = SVOT 

101 

KSTEP  * M0C(N,IPR1-I 

102 

CALL  INSYST 

103 

CALL  INRK4 

104 

95 

GO  TO  (30  ,40  1 »K 

105 

C 

106 

c **» 

IF  MISSILE  WITHIN  5 FT.  OF  TARGET, 01  VIDE  STEP  LEN3TH  8Y  2 (FIRST  TIME). 

107 

30 

IF( TMRNG6.GT .5. 1G0  TO  40 

10b 

OT  = . 5D*0*0T 

151 
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CARD 

109 

IP*  * IPRfIPR 

no 

K ~ 2 

111 

C 

112 

C *** 

IF  MISSILE- TARGET  RELATIVE  VELOCITY  IS  POSITIVE. INTERCEPT  HAS 

113 

c *«• 

OCCURRED 

114 

c 

115 

40 

IF< TMVEL.GE.O.O)  GO  TO  50 

116 

IFtT.GT.ISIOPI  RETURN 

117 

45 

KSTEP  « KSTEPU 

118 

C 

119 

c *♦**«♦*♦******** 

120 

IF(  KONTER.NE • NUHHIGO  TO  1 

121 

GO  TO  2 

122 

1 

KONTER  • K INTER 

123 

IF( T.GT. VTIME1 J RETURN 

124 

c ♦*»**«***♦**♦**♦ 

125 

c 

126 

2 

IF  { KSTEP— I PR120 . 10 . 10 

127 

C 

128 

c *** 

CALCULATE  HISS  DISTANCE  FROM  CURRENT  AND  PREVIOUS  POSITIONS 

129 

c 

130 

50 

A * 0. 

111 

8 • 0. 

132 

C « 0. 

133 

00  60  I -1.3 

134 

THP1  • XMOLOUI-TOLOII) 

135 

A • Af TNP1*THP1 

136 

THP2  « XIIJ-XT!  II 

137 

8 • 8«TMP2*TMP2 

138 

TMP1  • Xlll-XMOLOU) 

139 

60 

C « C+TNP  1-TMP1 

140 

A-SQRT ( A) 

141 

B-SORTIBI 

142 

C « SORT ( C) 

143 

Z • .5*<A»8tCI 

144 

A « 2.*SQRTU*<  Z-A)*(Z-B)MZ-C)  )/C 

145 

WRITE  ( 6,900)  A 

146 

WRI  TEI6.124)  T 

147 

IF(  VTIHE2.LT.TST0P1G0  TO  61 

148 

00  288  I'U.MS 

149 

288 

WRI  TE(  6. 11)  I , ( P ( I ,M  ,K>1,I) 

150 

11 

FORMAT (//IX.'PI  '»I2»'»  J)  -',7:15.5/4(11X,7E13.5/)) 

151 

124 

FORMAT! IX,' TIME  • ' .F8.4) 

J52 

900 

FORMAT  1//20X, '•****  MISS  OISTANCE  ****••  .F10.2,  • FT.') 

153 

910 

FORMAT  UOX,  'FIRST  LUG  OFF  LAUNCHER  AT  T • ' , F8.4) 

154 

920 

FORMAT  UOX,' SECOND  LUG  OFF  LAUNCHER  AT  T • '.F8.4) 

155 

61 

RETURN 

156 
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1 SUBROUTINE  COEFF 

2 C *** 

3 c this  subroutine  calculates  the  implicit  •a*  matrix  elements 

4 C *** 

5 COMMON  / SEEKR/NS  tDTHTGt  BPS  1G«  BTHO,  BPSO.EZ.E  Y,3SV(  6) 

6 COHMON  / INCEPT/UTI3I ,XT<3) ,TKVEL,TMRNGE,»EPSZ,  BEPSY 

7 COMMON  / AUTOP/NA,ZPl,ZP2,ZP3,ZYl,ZY2,ZY3,ZRi,ZR2,BPHIS,ZPIl,ZPI2, 

3 1EODCR, ZYl 1 , ZYI2  «£VNCR<  ZPD1,  ZP02,  ZP03,  ZYOX,  ZY02>  ZY03,  ZPD1,ZR02 1 

9 26PHI SO, IP  ID  1* ZPID2,E0DCR0,ZYI0l,ZYID2,EVNCRD,EZSS,EYSS,WQC,WRC, 

10  3EZRR»  EY  RR, BDELPC 

11  COMMON  / AUTOK/  HOG .DQG. TAUZ .TAUY.T  AULi  GY 2,P Ai, RB2.HP  1,0P  1.  RK  1, 

12  1PYAK  l.PYBKltPYIK  1 ,WQ1  ,DQ  l «PYLIH,RL1  MiGBI  AS.QBI  AS, RBI AS 

13  COMMON  /STATEV/NT,UE,VE,WE*X(3)»0UE,0VE,DWe,0X,0Y,0Z 

14  COHMON  /ROTATE/NR  ,P8,Q8,RB.  THETA,  PHI , PS  ! ,DPB»  DQB,  ORB,  DTHA,  DPMI, 

15  1DPS1 , SNTHA,CSTHA » SNPH1  ,CSPH!  ,SNPSI  ,CSPSI  ,HF  ,WQ,HR,  BTHETA,  BPH,  BPS 

16  COMMON  /MSINCG/S1  tHO  ,WP  ,XIX0,  X IYO,  RLCGO.RDCGO.  RDCGP  ,XM  «XIX»XI  Y, 

IT  1RLCG.RDCG 

18  COMMON  /FC£MOM/FXA,FYA,FZA,XHXA,XMYA,XHZA,FTHX,FTHY,FTHZ 

19  COMMON  /TRANSF/8CSEC$<3,3>.ECSBCS(3,3J,  BCSGCS(3,3) , ECSGCSI  3,31 

20  COMMON  /VANEK/VGAIN  ,VL1  MjVRLIM 

21  COMMON  /COEFS/T  HR  ,CHQ , CNR , CNP » C Y2.CL3  ,C  XOiCHO  ,COCM,CNF  ,CN2» 

22  1CLP,CL2,CXC,CNQ,CMOQP,CLORP,CNR,CLO 

23  COMMON  /AODV/ALFAP  ,ALFA ,8ETA  *XHN*CSPHt P »SNPHl PiQUE ,VA,RHO 

24  COMMON  /TIMES/T.OT,TBO,TSTOP,tPfi,J, LAUNCH 

25  COMMON  /GEOMK/S  *0,XTCG , YTCG « ZTCG.RLl ,RL2  tWUE.HV  EtHHE 

26  COMMON  /VANES/NVtVVI  4)*0VV(  4) ,3EL ( 3) 

27  COMMON  /UTILTY/G.RTO 

23  COMMON  /VMG/  H,MS 

29  COMMON  /8L0CK1/PI33. 331. 0P(  33,331 

30  COMMON  /BLQCK2/  A2I 33 ,331 ,K IK, MOUNT ,K ICK.KAT 

31  COMMON  /3L0CK6/  BACSI3I 

32  COMMON  / BLQCK7/KK3,  THRP,  T IMP 

33  SUMMON  /BLOCKS/ KK1 , KK5  * VP 

34  COMMON  /BL0CK9/K0K 

35  COMMON  /BLOCCl/  CUE1 , OVEl,OHEl,DPBl,  OQB  1,  ORB  l 

36  DOUBLE  PRECISION  T,  DT 

37  DIMENSION  X6I  31  .BCSEC  11  3, 3)  ,ECSBC 1 1 3,31  , VVH4I , DELI  13 1 

38  KK1  » 0 

39  KK2  * 1 

-.0  KK3»7 

41  KK4  « 1 

42  KK6  « 1 

43  UEl  = UE 

44  PP1  x SQRT(A3S(P<16,  1611) 

45  UE  » UE  * 0.1 

46  IFIPPl.GT.O.l  ) UE  « UEl  <■  0.1*PP1 

47  GO  TO  143 

48  643  DO  2 I « 1,3 

49  2 DEL  1(1)  * OEL(I) 

50  IF<ABS<VV<I  I!)  .LE.VLIM1G0  TO  3 

51  VV<  II)  - XLIMITIVVMID.VLIMI 

52  3 TMP1  * Will  *-VV  ( 2) 

53  TMP2  » VV(3) ♦VV14) 

54  DEL  (1)  x 0.  25*1  TM°lfTMP2) 


153 


ARO 

55 

DEL  (3)  « 0.25*1 

56 

DcL  (2  I * 0.25*1' 

57 

KK1  * 0 

58 

GO  TO  343 

59 

543 

SNTHA1  » SNTHA 

60  . 

CSTHA1  = CSTHA 

61 

SNPHI1  * SNPHI 

62 

CSPHU  « CSPHI 

63 

SNPSU  • SNPS1 

64 

CSPSU  « CSPS1 

65 

DO  7 !G«=lt3 

66 

00  7 JJ-1.3 

67 

BCSEClllG.JJl  * 

68 

7 

ECSBCll !G  *J  JI  = 

69 

143 

RH01  * FHO 

70 

VPl  * VP 

71 

VA1  * VA 

72 

QUE 1 = QUE 

73 

XHN1  = XMN 

74 

ALFA1  =>  ALFA 

75 

BETA1  = BETA 

to 

ALF API  = ALFAP 

77 

CS:>HH  * CSPH1B 

78 

SNPHIl  « SNPHIP 

79 

THRP1  = THRP 

80 

T IMP  1 * TIMP 

81 

XMl  = XM 

82 

XI  XI  * XIX 

83 

X I Y 1 * XI Y 

84 

RL'CGl  =■  POCG 

85 

THAI  » THR 

86 

CHOI  * CM3 

87 

CNR1  * CNR 

88 

CNP1  » CNP 

89 

CY21  » CY  2 

90 

CL31  =■  CL3 

91 

CX01  «:xo 

92 

CHOI  « CMO 

93 

LOCMl  »CDCM 

94 

CNF!  ■ C9F 

95 

CNH1  « CN2 

96 

CLP l » CLP 

97 

CL 21  « CL2 

98 

CXCl  * CXC 

99 

CNQ1  « CNQ  . 

100 

CLORP 1 « CLDRP 

101 

CHDQP1  * CHOQP 

102 

CKR1  » CHR 

103 

CL01  « CLO 

104 

343 

FXA1  ■ FX  A 

105 

FYA1  ■ FYA 

106 

FZA1  ■ FI  A 

107 

XHXA1  « XHXA 

108 

XHYA1  « XHYA 

BCSECSl IG.JJ I 
ECSBCSl  IGiJJ) 
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i 
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5 


T 

l 


t 
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109 

XM2A1  * XHZA 

* 

110 

FTHX1  « FTHX 

c 

ni 

FTHY1  « F7HY 

; 

112 

FTHZi  * FTHZ 

£ 

113 

CALL  TRAYSM 

; 

119 

IF( KK2.EQ.2 )G0  TO  22 

i 

115 

CALL  THRCON 

r 

116 

GO  TO  22 

% » 

117 

144 

A2(ll>Jl>  * (0UE1-0UE )/  ZZ1 

i ; 

110 

A2<  11*1,311  - IDVEl-OVEl/ZZl 

» 

119 

A2IIH-2.J1)  * (0NE1-0WEI/ZZ1 

t , 

120 

A2(I1*6,JI)*  (0P81-0PE1/ZZ1 

If 

121 

A2C  I 1*7,  J 11  * I0QB1-0QB)  /ll  1 

/ | 
'*! 

122 

A2( 11*8  tJl 1*  1DRBI-DRB1/ZZ1 

1 ! 

- ) 

123 

IFtKK3.EQ.7IG0  TO  155 

124 

IF(«1.EQ.1>G0  TO  555 

125 

00  4 I * 1,3 

12o 

4 

DELI  I ) * DELHI ) 

r-'  1 

127 

GO  TO  355 

128 

555 

SNTHA  £ SNTHAl 

a * 

129 

CSTHA  « CSTHA1 

> 

130 

SNPH1  * SNPHII 

c 

131 

CSPHI  * CSPHI1 

g 

132 

SNPSI  = SNPSll 

* 

133 

CSPSI  « CSPSU 

5 

134 

DO  171  13*1 ,3 

K 

135 

00  171  JJ*1,3 

136 

BCSECSI  IG.JJ)  * 8CSEC11 IG*  JJ  1 

l 

137 

171 

EC5BCSI 13  1 J Jl  * ECS8CH  IGtJJI 

138 

155 

RHO  * RH01 

139 

VP  * VP1 

\- 

1 

140 

VA«VAl 

V 

141 

QUE  * QUE1 

t 

142 

XHN  * XHN1 

143 

ALFA  « ALFAl 

? 

144 

BErA  * BETA1 

? 

145 

ALpAP  * ALFAP1 

t 

146 

CSPHIP  » CSPHU 

1 

147 

SNPHIP  - SNPHII 

»- 

143 

THRP  * THRP1 

£ 

149 

TIMP  » TlHPl 

& 

150 

XH  * XH1 

? 

151 

XIX  • XIX1 

il 

152 

X1Y  • xm 

153 

»OCG  * R0CG1 

'4 

134 

15a 

THR  * THR1 
CHQ  « CMQ1 

r 

156 

CNR  * CNR} 

f 

157 

CNP  « CNP1 

\ 

158 

CT2  » CY21 

159 

CL3  » CL31 

h 

160 

CXO  » CXOl 

l 

161 

CHO  « CHOI 

! 

s 

£ 

/ 

\ 

162 

COCM  - COCHI 

I 


E 


aiiiaSfiii 


jtt  sjMtJtit  i.u 
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CARO 

163 

CNF  « CNF1 

164 

CN2  « CN21 

165 

CLP  « CLP1 

166 

CL2  - CL21 

167 

CXC  « CXC1 

168 

CNQ*  CNQ1 

. 

169 

CLORP*  CL0RP1 

170 

CHOQP  * CNOQP 1 

171 

CMP  » CMR1 

172 

CLD  « CL01 

173 

355 

FXA  « FXA1 

174 

•FYA  - FYAl 

175 

FZA  FZA 1 

176 

XMXA  « XHXA1 

177 

XMYA  « XMYAl 

178 

XNZA»  XMZAl 

179 

FTHX  « FTHX1 

180 

FTHY  * FTHY1 

181 

FTHZ  « FTHZ1 

182 

GO  T0(143,543,643,343,57),KK6 

183 

64 

ZZ1  «=  UE  -UE1 

184 

KK4  = 2 

185 

UE  = UE1 

166 

VE1  = VE 

187 

PP1  = SQRT(ABS(?<  17,17111 

188 

VE  3 VE  ♦ 0.001 

1B9 

I F ( PP 1.  GT. . 001 1 VE  = VE1 

♦ 

0.1*PP1 

190 

11  * 16 

. 

191 

J1  = 16 

152 

30  TO  144 

193 

44 

ZZ1=VE-VE1 

194 

KK4  = 3 

195 

HE  1 * HE 

196 

VE  * VE 1 

197 

Pt>l  = SQR1  (A8S(P(18|181)1 

178 

WE  * HE  *-0.1 

199 

IF( PP1.GT .0,1  1 HE  * 

♦ 

O.lPPPl 

200 

J1  = 17 

201 

CO  TO  144 

202 

45 

ZZ1  «=  HE-HEl 

203 

KK4  = 4 

204 

X6(  3 1 3 X(  31 

20  5 

HE=HE1 

206 

PP1  « SQRT»  A8S(P<21  ,21)  11 

207 

X ( 3 1 ’ X( 31  ♦ 1.0 

208 

IFIPPI.GT.1.0  ) X (3 1 *X6 (31 

¥ 

0.1*PPl 

209 

J1  » 18 

210 

GO  TO  144 

211 

46 

ZZ1  * XI31-X6 (3  ! 

212 

KK4  * 5 

213 

THETA1  « THETA 

214 

X(  31  = X6(31 

215 

PP1  « SQRT< ABSIP<  25, 25111 

216 

THETA  * THETA  t 0 .0  l 

) 


l 

f 

i 


♦ 


£Safa«aaiAaal)^Mvxw^  M^Ato.  aaa  .tr^.-^-.-r 


r 

* 

i 

h 

s 

b 

K 

E 

S' 

i£ 

c 

r ; 

£ t 

? 1 

1 ; 

,%■ 

5*  ! 

| ; 

i 

j 1 

CARD 

217 

1FIPPI.GT.0.01JTFETA  -THETAl*  0.1*PP1 

g i 

218 

KK1  « 1 

i 

219 

KK6  * 2 

K ; 

220 

Jl  • 21 

K j 

221 

30  TO  144 

r ! 

222 

47 

221  » THETA-THETA1 

f : 

223 

KK4  « 6 

£ ! 

224 

THETA  * THETA1 

? | 

225 

3 SI  1 * PSI 

226 

PP1  * SORT ( ABSt  P(27»  27) 1 ) 

* 

227 

PSI  * PSI  ♦ 0.01 

j.  } 

228 

IFIPPi.GT.0.01)  PSI  ■ Pill  0.1*PP1 

l ! 

229 

KK3  * 6 

1 1 

230 

Jl  » 25 

& ’ 

S'  1 

231 

GO  TO  144 

232 

48 

221  = PSI-PSIl 

* ' 

233 

KK4  * 7 

J 1 

234 

PHI l * PHI 

?•  ; 

235 

PSI  = PSIi 

236 

PP1  * SORT!  ABS(  P(26  .26)  1 1 

S ' ■ 

237 

PHI  = PHI  ♦ 0.01 

238 

IFIPP1.GT .0.011  PHI  « PHI  1 ♦ 0.1*PP1 

. 

239 

Jl  « 27 

£ 

240 

GO  TO  144 

J 1 

241 

49 

221  = PHI  -PHI  1 

242 

KK4  « 8 

1 

243 

PHI  * PHI  l 

i 

244 

Will!  * WtU 

245 

PPI  = SQRT(AB$:P!28,28U) 

K 

246 

VVI  1J  * VV(  1)  ♦ 0.1 

? 

1 

247 

IFIPPl.GT.O.l  1 VV(11»VVIUI*  0.1*PP1 

248 

<K5  * 1 

J. 

249 

KK2  * 2 

*' 

250 

KK6  * 3 

ft 

251 

II  = 1 

252 

Jl  = 26 

253 

GO  TO  144 

254 

50 

221  = VV(  ll-VVK  11 

r 

255 

<K4  = 9 

256 

Will  = VVl(l) 

)/ 

257 

VVK  21  ■=  VV(  2) 

258 

PP1  = SORT ( A8S (P( 29. 29)1) 

i 

259 

VVI  21  * VV(  2)  ♦ 0.1 

t- 

2o0 

IFIPPl.GT.O.l  ) VVI  2)  *VV1I  2>*  0.1*PP1 

1 

261 

11=2 

262 

Jl  * 28 

J 

2o3 

GO  TO  144 

264 

51 

221  * VV  (2  ) -VVI  1 2 1 

1 

265 

<K4  = 10 

266 

VVI 21  * VVil 2) 

267 

VVI  13)  ■=  VVI3) 

-* 

268 

PP1  * SQRTIABSIPI30.30)  )) 

l 

2o9 

VVI 3)  * VVI 3)  * 0.1 

s' 

270 

IFIPPl.GT.O.l  1 VV(3)«VVU3K  0.1*PPl 
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271 

11*3 

272 

31  * 29 

273 

GO  TO  144 

27  A 

52 

2Z1  * VV(31-VV1 (31 

275 

XK4  * 11 

276 

VV1C41  * VVI41 

277 

VVC3I  * VVH3 1 

278 

PP1  * SQ8T(AB$(P(31  ,31111 

279 

9V(4)  * VVl 41  0.1 

280 

IF(PP1.GT.0.1  1 VV(4  )*VVl  ( 4 

281 

II  * 4 

282 

J1  *■-  30 

283 

30  TO  144 

284 

53 

III  * VV(41-VV1(4> 

285 

XK4  * 12 

286 

PBl  * P8 

287 

VV(  41  « VVK41 

288 

PPl  * SQRT<ABS(P<22, 22111 

289 

PB  * PB  «■  0.01 

290 

1F(  PP l.GT.O. Oil  PB  « PBl 

291 

KK6  * 4 

292 

WF1  * WF 

293 

WF  * P3*RT0 

294 

Jl  * 31 

295 

30  TO  144 

290 

54 

221  * P8-PB1 

297 

A2(22>22)  * (OP81-OPB1/2Z1 

298 

A2»  23,22)  « <0061-0081/221 

299 

A2(  24,221  = (DRBl-ORBl/ZZi 

300 

1F(  LAUNCH. GT  .21  GO  TO  92 

301 

A2(  17,221  * (OVei-OVEl/221 

302 

A2(  18,221  = (OWEl-OWE  1/221 

303 

92 

KK4  * 13 

304 

QB1  * QB 

305 

PB  * PBl 

306 

WF  » HFl 

307 

W31  * WO 

308 

PPl  * SQRT<ABS<P<  23, 23)  11 

309 

QB  * QB  0.01 

310 

IF(  PP  l.GT.O.  01)  QB  « QB1 

311 

WO  * QB*RT0 

312 

50  TQ  355 

313 

55 

221  * Ob  - Q91 

314 

A2  (23,23)  * ( 0QB1-DQB  1/  2Z 1 

315 

A2<  24,23)  * (0RB1-0RB1/2Z1 

316 

IFILAU'ICH.GT ,2)  GO  TO  93 

317 

A2  ( 1 7 , 2 3 1 * (0VE1-0VE  1/221 

318 

A2t  18,231  * ( OWE l-DWE  1/221 

319 

93 

KK4  * 14 

320 

RBI  « RB 

321 

QB  * QB  1 

322 

WQ  » W01 

323 

WR1  « WR 

324 

PPl  « S0RT(ABS(P(24, 24)11 

♦ 0.1*PPl 


P 


i 


ARO 

325 

326 

327 

328 

329 

56 

330 

331 

332 

333 

334 

335 

94 

336 

337 

338 

339 

340 

341 

342 

22 

343 

344 

345 

346 

347 

10 

348 

349 

350 

40 

351 

352 

353 

354 

355 

356 

357 

356 

90 

359 

91 

360 

57 

361 

362 

95 

363 

364 

365 

366 

97 

367 

96 

368 

Rb  = RB  0.01 

JFTPPl.GT. 0.011  RB  * PB1  ♦ 0.1*?P1 

WR  « RB»RT0 

GO  TO  355 

III  * PB  - RBI 

A2<  23,24)  * IDQBi-DODl/ZZl 

A2(  24,  2 A)  * ( 0RB1-DRB  )/ZZ  1 

IFIL AUNCH.GT .2 1 GO  TO  94 

A2I  17,24)  = (0VE1-DVE)/ZZ1 

A2( 18,24)  - ( OW  El-DWE  )/ll 1 

RB  * RBI 

WR  • WR1 

KKl  = 1 

KK3«0 

KK5  * 0 

<K6  * 5 

GO  TO  355 

DUE  1 • BCSECS  (1  ,1  )*  BACS ( 1 ) *BCSECS  (1 ,2)*BACS  (2) 4BCSECS 1 1, 3 )*BACS( 3 1 
DVE  1 * BCSECSI 2, 1)*BACS(  1 ) *3C  SECS ( 2 ,2) * BACS< 2 ) » BCSECS  (2  ,3)*BACS  (3  ) 
OH  El  * BCSECS (3 ,1 )*BACS ( l)  BCSECS (3, 2)* BACS 1 2) *8CSECS(3,3)*BACS(3) 
HG 

GO  TO  ( 10,40)  tJ 

XMXTH  . FTHZ*YTCG-FTHY*ZTCG 

XHYTH  « ZTCG*FTHX*XTCG*FTH2 

XHZTH  » -YTCG*FTHX-XTCG*FTHY 

XHX  * XMX A4XNXTH 

XHY  • XMYA4FZA*R0CG»XHYTH 

XMZ  « XHZ A-FY A*RGCG*XMZTH 

■TMP1  » ( l.-XI X/XIY)*PB 

DPB1  • X^X/XIX 

0081  • XHY/X1Y+THP1*RB 

0081  • XNZ/XI  Y-THPl*QB 

GO  T0I90, 90, 91), LAUNCH 

CALL  HDERIV 

GO  TO  ( 64,44, 45,46, 47,48,49,50,51 ,52 ,53 ,54,55  *Su ) ,KKV 
IF (LAUNCH. GT .2)  GO  TO  95 
30  TO  96 

!F(  KQ<, E9 . 1)  GO  TO  96 

KOK  . l 

00  97  1.17,18 

00  97  I l*  22,24 

A2  ( 1 , 1 1 ) > 0.0 

RETURN 

ENO 


CARO 

1 SUBROUTINE  MDERIV 

2 COMMON  /TIMES/T ,OT,T80,IST0P, IPR.J, LAUNCH 

3 COMMON  /MSINCG/S!  ,WO,WF,XIXO,XI  YO,RLCGO,fiOCGO,RDCGP,XM,XIX,XIY 

4 1RLCG.ROCG 

5 COMMON  /FCEMON/FXA,FYA,FZA,XMXA,XNYA,XNZA,FrHX,FTHY,FTHZ 

6 COMMON  /STATEV/NT tUEtVE  , ME , X , Y, Z , DUE  ,DVE  ,OWE ,OX ,OY,  DZ 

7 COMMQ  /TRANSF/ eCSECS  (3,3),  ECSBCS(  3, 3),  BCSGCSI 3,  3)  »ECSGCS(  3,3) 

3 COMnON  /BLOCC1/OUE1 tOVEl ,DWE1 ,DPB1 * OQBl ,ORBl 

9 DOUBLE  PRECISION  T,OT 

10  DIMENSION  BACCI3 ) 

11  EQUIVALENCE  ( DVB ,BACC<2) ) , <0WB,BACC(3) ) 

12  GO  T0(30, 50  I, LAUNCH 

13  39  RLCG1  « RLCG 

14  RLCG1  > RLCGO  ♦ ROCG 

15  CALL  TRANS  ( ECSBCS,  DU  El,  8 ACC  ) 

16  TMPl  « RLCG1/XIY 

17  TMP2  * XM*RLCG1 

IB  THP3  « TMP1*TMP2  + 1.0 

19  FLY  « ( ORB  1*TMP  2-0V8+XH)  /TMP3 

20  FLZ  « - ( DQ8 1*TMP2  + 0WB*XM)/THP3 

21  DVB  - OVB  «•  FLY/XM 

22  DMB  - DW3  + FLZ/XM 

23  DPB1  > 0.0 

24  DOB l « 0081  ♦ FLZ*TMP1 

25  DRB1  * 0K81-FLY*TMP1 

26  CALL  T R ANS ( BCS ECS , B ACC, DUEL) 

27  RETURN 

28  50  CALL  TRANS(  ECSBCS, OUEl.BACC ) 

29  DVB  « 0.0 

30  DWB  » 0.0 

31  0PB1  « 0.0 

32  DQffl  » 0.0 

33  DRB1  « 0.0 

34  CALL  T RANS ( 8CS ECS, BACC, OUEl ) 

35  RETURN 

36  END 


...  V. 


f'  ■ 


4 COHHON  /8L3CKI/PI 33,33) , DPI  33,33) .OP9I33, 33) 

5 COHHON  / BLOCK 2/  A2(  33,33 1 , K IK , <OUNT  ,KICK,KAT«8  2t  2) , K400 

6 COHHON  /SNSE/  AREA131) ,E2NOIS,EYNOIS 

7 COHHON  /VANEK  / VGAIN, VLIH, VRlI H 

8 COHHON  /TIHES/7  ,OT  ,TBC,TSTOP,  1PR,J,  LAUNCH 

9 DOUBLE  PRECISION  T,OT 

10  DIMENSION  A3(13),P3( 15) 

11  30  25  I *1 ,HS 

12  DO  25  JJ*l,I 

j 13  25  P(JJ,I)  =>  P(I.JJ) 

( 14  00  201  1*1,15 

! 15  A3U)  * 0.0 

j 16  201  P3 1 1 ) * 0.0 

17  00  1 11*1, MS 

! 18  DP(l.It)  * A2(1,1)*P!  l,II)*A2U,2)*P(2,Il)«-A2(l,3)*PI3,:i) 

( 19  1 0PC4,II)  * A2 14 ,4 )*P 14, 1 1 )♦ A214, 5 )*PI 5,  It )+A2t 4, 6) *Pt 6, 1 1 ) 

> t 20  00  4 JI  *1  ,MS 

' 21  DPI  2,  Jl ) » A21 2, 1)*P(  1,  Jl ) 

! 22  0PI3 , JI ) * A2(3,2)*P<2,JI» 

, 23  DP(5,JI)  * A21 5,4)*P 1 4, JI I 

24  0PI6.JI)  * A2I6, 5)*P(5, JI ) 

' 25  0P(  7,  Jl ) = A2I7,7)*PI7,JI)4A2I7,8)*PIB,JIJ+A217,26)»PI26,JI) 

26  OPI 8, J I ) * A2I 8,7)*P( 7, JI ) 

27  0PI9.JI)  * A2(9,7)*P(7,JI)  ♦ A2I9,  8)*Pl  8,  JI  1+A2I9,  26)  *PC  26,  JI ) 

, 28  OPIll.JI)  * A2I11,10)*P(10,JI) 

• 29  4 DPI  14,J  I ) * A2I  14, 13) *P(  13,  JI  ) 

. 30  00  9 I * 10,12,2 

; 31  DO  9 JI  = l, MS 

32  9 OPII.JI)  = A2(I,2)*PI2,JI)+A2U,3)*PI3,JI)*A2II,5)*PI5,JI)»A2(I,*) 

t 33  l*P(6«J!)*A2II«l0)*P|10,Jl)4A2II,ll)*PIll,Jtl*A2II,23)*PI23»JI)* 

I 34  2A2I I, 24)*PI 24,J I) 

35  00  10  1*13,15,2 

36  OO  10  JT-l.MS 

37  10  OPII.JI)  = A2(I,2)*PI2,JI)«-A2(I,3)*PI3,JI)4A2(I,5)*PI5,JU4A2II,6) 

i 3o  1*P<6,J!  )»A2(I,13)*Pll3f  .II)»A2II,14I*P(14,JII*A2II,23)*P(23,JI) 

“ 39  2+A2I  1 ,24) *PI 24, JI) 

40  JL  * 16 

41  JH  * 18 

42  KIT  * 0 

43  17  00  11  I*JL,JN 

44  00  12  JK*l ,3 

45  12  A3IJK)  * A2I I « JKt-15) 

46  A3I4)  * A2I  1,21) 

47  00  13  JK*5 , l 1 

48  13  A 31  JK)  * A2I  I ,JKf20) 

49  00  11  1 1*1 , MS 

50  00  14  JK«l , 3 

51  14  P3IJK)  « PI  JK  + 1S,  II  t 

52  P3I4)  * PI21.II  ) 

53  00  15  JK* 5,11 

64  15  P3IJK)  * PI JK^ZO, II) 
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CAPO 

55 

OPCI,  II) 

56 

00  11  JK* 

57 

11 

DPI  1,11  ) 

58 

IP (KIT . EQ 

59 

KIT  * 1 

60 

JL  = 22 

61 

JH  * 24 

62 

30  TO  17 

63 

16 

00  18  1*1 

69 

18 

DPI  22, 1 ) 

65 

00  19  JK*; 

66 

00  19  1*1 

67 

19 

DP(JK,1) 

08 

l»P(24,I) 

69 

II  * 16 

70 

DO  20  JK* 

71 

00  26  1=1 

72 

26 

DPIJK.U 

73 

II«IIU 

74 

20 

CONTINUE 

75 

00  21  JK* 

76 

00  21  1*1 

77 

OPf  JK, I ) 

78 

DPI  26 , I ' 

79 

21 

00(27,, 

80 

Jl  = 28 

81 

JI  = 12 

82 

00  23  JK* 

33 

IF ( JK. EQ. : 

84 

00  27  1=1 

d5 

27 

0P( JK, I ) ’ 

35 

1A2IJK.26) 

87 

JL  » JL*1 

88 

JI  = J 143 

39 

23 

CONTINUE 

90 

I F( LAUNCH 

91 

00  82  JK* 

92 

00  82  1=1 

93 

82 

D»(  JK  , I ) *( 

Of 

IP  ( 24 , 1 ) 

•»5 

81 

00  99  11  = 

96 

00  99  JJ= 

97 

99 

OP?(JJ,II 

98 

00  24  II* 

99 

00  24  JJ= 

IOC 

24 

OP(II.JJ) 

101 

OP(l.l)  * 

102 

DPI  4,  41  = 

103 

0P128.28) 

104 

DPI  29,29) 

105 

0P( 30 , 28 ) 

106 

0P(  30  ,30) 

107 

0P(  31,291 

108 

0P( 31 , 3 1 ) 

109 

DP(32,32) 

110 

DP(  33  ,32) 

111 

0P(  33,33) 

112 

RETURN 

113 

END 

* 0PI22, mA2(22,22)*»(22.I) 


A2IJK,  II)*P(  11,1) 


= 0P127.I1  *■  A2(  27  ,25)  *P(2  5, 1 ) 


A2(JK,7l*P(7,I)*A2l  JK,B)*P(8,I)fA2(JK,9|*P(9,I) 


00(1,1)  *■  EZNOI  S*D2  ( 1 )*82 ( 1 ) 
0P(4,4I  * EYNOI  S*82(  21*82(2) 

= OPf 28.28  ) VGAIN*YGAIN*0.25 
= DPI  29 ,2  9)  *■  VGA!  N»VGAIN*0  .25 
= OP ( 30,  2 8)  *■  VGAIN*VGAI N*0. 25 
= OPf  30, 30  ) *■  VGAIN*VGAIN*0.25 
= 0P(  31,29)  VGAIN*VGA1N*0.25 
= OP ( 31.31)  * VGAIN*VGAIN*0«25 
= EZN01S 
* 0.0 
= E YN01  S 


VXZEuKiA&ii 


CARO 

1 SUBROUTINE  SEEKER 

3 COMMON  / SEEKR/NS *BTHTG»BPSIGt BTMD»  BPSO *EZi EYtOSVVI 6) 

3 COMMON  / SEEKK/SKSP,SKSY,TSAMPt  DTS  AMP,  CROSPT,  CROSTP , SYGBl  S > SZGSI S 

4 COMMON  /TIMES/T «OT» TBOtTSTOP* I PRtJt LAUNCH 

5 COMMON  / INCEPT/UT I i) ,XTI 3) » TMVEL,TMRNGE ,BEPSZ , 8EPSY 

6 COMMON  /ROTATE/NR«PB,OB,RB,  THETA, PHI, PS  I ,OPB,  OQB,DRB,DTHA,  DPMI, 

7 1DPS1 , SNTH  At  CSTH  A * SNPHI  iCSPHI  tSNPSI  ,CSPSI , HP , WQ.HR,  BTHET  A,  BPH,  BPS 

8 COMMON  /JTILTY/G.RTD 

V COMMON  /SNSE/  AREAI31),  EZNOIS.EYNOIS, VBEPS, VBEPSZtVBEPSY 

ID  COMMON  /VHG9/JUNK tVTIHE lt VTI MEa tVNQI SD*NUMM,NOMNAL 

II  DOUBLE  PRECISION  T,  OT 

IB  ENTRY  INSEEK 

13  I * IDINT(T*1.D3*.5D0) 

14  I • MODI  1, 50) 

15  IF! I.NE.O)  RETURN 

16  THP1  ■ TMRNGE/32810. 

17  TMP1  « .75*TMP1*TMP1 

18  EZ  * DEAOl-THPl.TNPl,  8EPSZ)*SKSP 

19  C ******************** 

20  I FI  NOMNAL.EQ.  0)  GO  TO  1 

21  IFUT.LE.VTIMEU.0R.IT.GE.VTIME2))30  TO  1 

22  VBEPS  « VBEPSZ 

23  CALL  SNOI  SE I TMP1  «BEPSZ,EZ  , EZNOI S) 

24  1 EY  « DEADI-THP1 «TMP 1,8EPSY) *SKSY 

25  C ******************** 

26  IF!  NOMNAL.EO.  0)  GO  TO  2 

27  IFHT.LE.VTIMED.OR.  IT.  GE.VTIH;  2)  )30  TO  2 

28  VBEPS  » VBEPSY 

29  ■ CALL  SNOI  SE  I TMP 1 ,8EPSY,EY,  EYNQt  S) 

30  2 8THTG  * BTHTG  ♦ DISAMP*EZ 

31  BPSIG  = BPSIG  «•  OTS  AMP* EY 

32  RETURN 

33  END 


CARO 

1 FUNCTION  OEAOIP 1,P2,X) 

2 C 

3 C DEAO  SPACE 

4 C 

6 DEAO  *0.0 

6 IFIX.GT.PI.  AND.X.LT.P2 IRETURN 

7 OEAO  » SIGN  1 1. 0>  X) 

8 RETURN 

9 END 


ISi mM* 


.fei.  A k- i j . 
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CARO 

1 SUBROUTINE  SNOISE(TNPl,  BERS . EC,  SGSQ) 

2 COMMON  / S£EKK/SKSP,SKSY,TSAMPtDTSAMP,CROSPT,CROSTP,SYGBIS, SIGHS 

3 COMMON  /OriLTY/G.RTO 

4 COMMON  /STATEV/NT ,UE,VE,W£,X(3 I 

5 COMMON  /3LOCK1/P1  33*33)  ,OP(  33,33) 

■ 6 COMHON  / TIMES/T 

T COMMON  /SNSE/  AREA131 ) t EINQIS ,EYNOIS ,VBEPS 

8 COMMON  /VMG9/JUNK,VTIHEl,VTIHe2,VNQIS0 

9 00 J BLE  PRECISION  T 

10  SGTMP1  > (0.75/(32810. *32810. I ) *SQRT (10.0*P (19, 19)*X(1 )*X ( l I 

11  1*3.0*P(19,  19I*P(  19,  19)*10.0*P(20,20)*X(2)*X(2) 

12  24-3. 0*P(20,20)«P(20, 201  *10 .0*PI 21, 2l)*X( 3 1*X13> 

13  3*3.0*P(  21 « 21) *P ( 21.211  ♦ 2.  04P<  19,19)*P(20,20> 

14  4*2.0*P(  19, 19)*P(  21,  21)  * 2.0*P(  20,20>*P(21,21)  *4. 0E8*P(  19,19! 

15  5-8.  0E4*PI  19 ,191  *X  (1 ) ) 

16  SlGBEP  « SQRT<VNOISO*VNOtSO/IRTD*RTDI*SGTHPl*SGTMPl*VBEPS*VBEPS) 

17  IF( EC.NE.-SKSP)  GO  TO  21 

18  OIST  - -TMP1  - BEPS 

19  POS  « 0IST/SIG8EP 

20  CALL  OETARA  (P0S.AL1) 

21  AL  ■-  AL1*  0.5 

22  POS  - POS  * 2.0*TMP 1/ SlGBEP 

23  CALL  OETARA  (POS.AOl) 

24  AO  « AO  1 - AL1 

25  AU  - 1.0  - AL  - AO- 

26  30  TO  41 

27  21  IF(EC.NE.O.O)  30  TO  22 

28  OIST  * BEPS  ♦ TMP1 

29  POS  * 01 ST/SIG8EP 

30  CALL  OETARA  (POS.AOl) 

31  AL  » 0.5  - A01 

32  POS  »( TMP1  - BEPSI/SIG8EP 

33  CALL  OETARA  (P0S.A02) 

34  AU  « 0.5  - A02 

35  AO  ■=  A01  * A 02 

36  GO  TO  41 

37  22  OIST  « BEPS  - TMP1 

38  POS  * OIST/SIGBEP 

39  CALL  OETARA  (POS.AUl) 

40  AU  « AU1*  0.5 

41  PUS  « POS  * 2.0*TMPl/SI GBEP 

42  CALL  OET ARA(PQS , AOl ) 

43  AO  « AOl  - AU1 

44  AL  « 1.0  - AU  - AO 

45  41  SIGEC  « AL  *(-SKSP 1 ♦ AU*SKSP 

46  SGSEC  « (AU*AU*SKSP*SKSP 

47  SGSQ  * SGSEC  - SIGECASIGEC 

48  HRI  TE(6  ,1 1 

49  l FORMAT)  IX,'  TIME  ' ,T21  , * SIGi  E P • * T36  , • EC'  ,T5l , ' AL'  ,T6i  , • AO  * ,TB  1, 

50  l,AU,,T96t  *SIGEC',Tlll,,SGS3'/l 

51  WRl  TE(6,2.'T,SIG8EP,EC,Al ; A),  AU,  SIGEC,  SGSQ 

52  2 FORMAT)  1X.8E15.  5) 

53  WRITE(6,3IDP(1,  1), OP (4,  4),  BEPS 

54  3 FORMAT!  IX, 'OP  (1,1)  * • ,E15 .5 , » 0P(4 ,4 ) « • ,E15.5, 'BEPS  * SE15.5) 

55  RETURN 

56  ENO 
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SUBROUTINE  VANE MO 

C *»* 

C THIS  ROUTINE  EVALUATES  DERIVATIVES  FOR  INTEGRATION  VARIABLES 
C USED  IN  THE  VANES  MOOULE. 

C *** 

COMMON  / AUTOP/NA,m,ZP2*ZP3.ZYl,ZY2,ZY3,ZP.l.ZR2,BPHIS,ZPIl,ZPI2, 
lEODCRt  Z YI It  ZY12 1 EVNCR  * ZPD1 * ZPD2 «ZP03*  ZYD1 * ZY02* ZYD3  * ZROl * ZPD2  * 

2 8 PH  I SO*  ZP 1 01 , ZPID2*  EODCRD,  ZY!  01*  ZYI02*  EVNCPO*  EZSS*  EYSStWOC  tHRC  i 
3EZAR  tEYRR  *BDELPC 

COMMON  /VANES/NV*VV( 4) »OVVt  4) ,OEL  1 3 J 
COMHON  /VANEK/VGAIN  *VLIM* VRLIM 
COMMON  /3LOCK4/  W5(4I  *OLTC ( 41 
COMHON  /BLIK2/  AV0(4),BV0I4) 

COMMON  /M8L0K1/ K0UNT1 tXNORM (4  I 
OLTCt  li  * £OOCR*BDELPC  *-XNURMt  l > *0.  5 
0LTCI2J  * EVNCR+BDELPC  ♦ XNORM<2)*0.5 
0LTCI3)  * EOOCR-BDELPC  ♦XNORNU  )*3.5 
DLTC(  4)  * EVNCR-BOELPC  * XNORM(2)*0.5 
00  30  1*1*4 
VV5UJ  - wm 
INO  * 1 

IFIABSIVVII  )).LE.VL1H)G0  TO  10 
INO  * 2 

VVCIl*  XLINITIVVUI.VLIM) 

10  DVV(I)  - XLIHITt VGAIN*( OLTC< 1 )“VVI I ) ) ,VRL IMI 
GO  T0(30, 201 *INO 
AVO(I)  « OVVII) 

BVO  < I ) - OVVU)*W(II 
20  IF( OVVI I J*VV< 1 1 .GT.O. IOVV ( I )*0. 

30  CONTINUE 

TMP 1 - VV ( 1 ) *VV { 2 ) 

TMP2  »VV(3JfVV<4> 

OELI  1)  « 0.25*(THPl»TMP2J 
0ELI3J  ■ 0.25*<TMP2-TMP1) 

OEL  (2)  * 0.25MVV<2)*VV(4)-VVU  J-VV13)) 

TETURN 

END 


1 SUBROUTINE  TARGET 

2 C 

3 C ***  THIS  ROUTINE  CALCULATES  TARGET/HISS ILE  RELATIVE  POSITION  AND 

4 C SPEEO  ANO  GENERATES  LINE-OF-SIGHT  SIGNALS  IN  SEEKER  PLATFORM 

5 C ***  COORDINATES 

6 C 

7 COMMON  / SEEKR  / NS  ,VS(2) ,DVS <2 ) ,OS V(8) 

8 COMMON  /STATEV/NT.UEI 3»,  XI  3)  ,DUE<3>  , 0X131 

9 COMMON  / INCEPT/  UT (31 ,XT (3) , TMVEL, TMRNGE, 8EPSZ . 8EPSV 

10  COMMON  /TRANSF/BCSECS13,3l , ECSBCSC3  ,3) , BCSGCSU  ,31  .ECSGCS  (3,3 1 

U COMMON  /UTILTY/G.RTO 

12  -COMMON  /TIHES/T 

13  COMMON  /SMSE/  AR EAI  311 ,EZNOI S,= VNOI S, VBEPS, VBEPSZ,VBEPSY 

14  COMMON  / BL0CK1/P(33, 331 » DP ( 33, 331 

15  COMMON  /M8L0K1/K0UNT1 ,XN0RM(41 

16  COMMON  /VMG9/JUNK,VTIMEI,VT1ME2,VN0ISD,NUMM,N0MNAL 

17  DIMENSION  RHPI3 ) ,SMP( 31 *TMP(3> 

18  DOUBLE  PRECISION  T 

19  EQUIVALENCE  I RXBA.RMPI  1 1 1 , ( RYBA,RM>  ( 21 1 , (RZ  BA  ,RMP<  3)  1 

20  EQUIVALENCE  ( RXG.SMPI  11 1 , (RYG,  SMP ( 2 1 1 , 1 RZG,  SMP ( 31 1 

21  A * 0.0 

22  B * 0.0 

23  C « 0.0 

24  DO  10  1-1,3 

25  SMP(  1 1 » UT  ( 1 1— OEI  1 1 

26  TMPII)  * XT(I1-X(I) 

27  RMP  (II  - TNP( I l-SMPI 1 1 

28  A * A*TMP 1 1 J*TMP( 1 1 

29  10  B * 8*SMP{ I ) * SMP 1 1 1 

30  TMRNGE  - SQRTIA1 

31  THVEL  « SQRT(B) 

32  COSA  -0. 

33  00  20  1*1,3 

34  A * TMP( I 1/TMRNGE 

35  B *SMP(  Il/TMVEL  ,y 

36  20  COSA  * COS A*A*B  I 

37  TMVEL  * COSA* TMVEL  f 

38  A * VSdl/RTD  t! 

39  CSTHG  « COS  ( A 1 ; 

40  SNTHG  * 3IN( A)  ! 

41  A * VS(  21/RTD 

42  CSPSG  * COS  ( A1  j 

43  SNPSG  * SINIAl  4 

44  A * TMP(l)*CSTHG-TMP(3)*SNTHG 

45  RXG  * A*CSPSG*TMP(2  )*SNPSG 

46  RYG  « TMP(21*CSPSG  - A*SNPSG  i 

47  RZG  « TMP(31*CSTHG  TMP(U*SNTrtG  ; 

48  BEPSZ  * ATANI-RZG/RXGl  ♦XNORNO  1*V.NOISO/RTD 

49  BEPSY  - ATANI RYG/RXG)  4XN0RMI41  * VNOI  SD/RTD  \ 

50  C ******************** 

51  I F( NUHNAL. EQ.01 GO  TO  1 

52  IFIIT.LE.VTIMEII.OR.IT. GE.VTIME211G0  TO  1 

53  q ******************** 

54  0 - ( 1.  M-RZG/RXG)*  (-RZG/RXG1 1**2  : 
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E » (l.M  RYG/RXGi* » RYG/RXG))**2 
F « RXG**4 
H « 1 .0/( 0*F  J 
91-  1.0/(E*F) 

Q « <-TM?(  1)*SNTHG*THP<3)*CSTHG)  *CSPSG 

Q1  « (RXG*( TNP(3  )*SNTHG-THP  (1)*CSTHG)  *R  ZG*3  l/RTO 

32  • rxg*snthg-rzg*csthg*cspsg 

Q3  « -RZG*SNPSG 

04  - RXG*CSTHG«-RZG*SNTHG»CSPSG 

35  -RZG*( -A  *SNPSG»THP(2)*CSPSG)/RT0 

R1  - (RXG*(TMP( 1 )*SNTHG4TMP C3)*CSTHG)*$NP$G“RVi*8) /RTD 

R2  ■ RXG*CSTHG*SNPSG*-RYG*CSTHG*CSPSG 

R3  < -RXG*CSPSG+RYG*SNPSG 

R4  — RXG*SNTHG*SNPSG-RYG*SNTH6*CSPSG 

R 5 -UXG*  (-THP<2)*SNPSG-A*CSPSGl-RYG*(-A»SNPSG*TNPt2  J*CFPSG)  )7RTD 
VBEPSZ  « H*(Q1*QI*P(32,32)4Q2*32*P(19,19)+Q3*Q3*P(20,20) 
1*-Q4*Q4*P(21 ,21 ) »Q5*G5*P(33 ,33  )«-2.0*Ql*Q2*P(  32, 19 1 
2*2.  0*Q1*Q3*P(  32,  20)  *2. 0*02»Q4*P(21  « 19) t 2.0*02* Q5*P( 33  1 19) 
3*2.0*Q3*Q4*P(21,20H2.0*Q3*Q5*P(33,20l*2. 0*04*Q5*P(  33,211* 

42.  0*Q1*Q5*P (33, 32) *2 .0*Q2*Q3*P{20 ,19) *2.0*01*Q4*P( 32,  21 ) ) 

V8EPSY  -Hl*(Rl*R  1*P  ( 32, 32)*R2*R2*Pt  19,19)*P.3*R3*P(20,20) 
1*R4*R4*P<21 ,21)+R5*R5*P(33,33)*2.0*R1*R2*P<32, 19) 

2*2.0*R1*R3*P(32  ,20)*2.0*R2*  R4*P (21, 19 )*2.0*R2*R5*P(33 ,19 ) 
3*2.0*R3*P4*P(2l,20)  + 2.0*R3»R5*»(33,20)*2.  0*R4*R5*P(33,21>* 
42.G*R1*R5*P(33  »32)*2.0*R2*R3*P(20, 19 ) *2 .0*R  1*R4*P  (32,21)) 

RETURN 
ENTRY  1NTGT 

VS(1)  » ATANI  ( X ( 3 1 —XT (3  ) I/XT (l ) ) *RT  D 
V S ( 2)  « 0. 

RETURN 

FNO 
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1 SUBROUTINE  ROYATM 

2 C •»* 

3 C THIS  R3UINE  CALCULATES  '“•cRIVATIVES  FOR  THE  MISSILE  ROTATIONAL 

4 C VARIABLES  PB.OB.RB  Af>  THE  EULER  ANGLES  THETA,  PHI,  PSI. 

5 C 

a COMMON  /P.OT  AT  E/NR,  PB,QB,RB,  THETA,  PHI , PSI  ,0PB,00B,DR8,0THA,0PHI 

7 l.DPSI  ,SNIHA,CSTHA,SNPHI  ,CSPHI,SNPSI  ,CSPS  I«H?,  M3,.MC»  BTHETA,  8Prt»BPS 

8 COMMON  /TIMES/T, OT.TBO.TSTOP, I PP,J, LAUNCH 

9 DOUBLE  PRECISION  T,OT 

10  COMMON  /MSI NCG/ SI,HO,UF,XIXO,XIYO,RLCGO , ROCGO, ROCGP, XM, XIX, XIV, 

11  1RLCG,R0CG 

12  COMMON  /FCEMOK/ FXA, FYA,F2A,XMXA,XMYA,  XM2A,FTHX» FTHY»FTH2 

13  COMMON  /STATEV/NT,UE  , VE  *H£,X«Y,2»DUE*DVE,DHE*  DX»DY,  D2 

19  COMMON  /UTILTY/G,RTD 

15  COMMON  /GEOMK/S ,0,XTCGi YTCG, 2TCG, RL l* RL2, HUE, HVE, WWE 

16  COMMON  /TRANSF/BCSECS(3,3) , ECSBCS (3  ,3 ) » BCSGCS (3 ,3) , ECSGCS (3,3 1 

17  DIMENSION  BACCI3J 

18  EQUIVALENCE  (DVB.  8 ACC  (2  ) ) , ( DW8,  BACC  (3  > J 

19  C 

20  C ***  MOMENTS  OUE  TO  THRUST  MISALIGNMENT 

21  C 

22  GO  TO  ( 10,40) ,J 

23  10  X.NXTH  * FTH2*YTCG-FTHY*2TCG 

24  XMYTH  * 2TCG*FTHX»XTCG*FTH2 

£5  XH2TH  » -YTCG*FTHX-XTCG*FTHY 

26  C 

27  C TOTAL  APPLIED  MOMENT S 

28  C 

29  40  XMX  = XMXA4XMXTH 

30  XHY  « XMYA*F2A*R0CG*-XMYTH 

31  XH2  * XM2A-FYA«R0CG4XM2TH 

32  C 

33  C ♦**  DERIVATIVES 

34  C 

35  TMP1  » (1  «_X IX/X IY ) *PB 

36  D°3  « XHX/XIX 

37  DOB  = XMY/X I Y*THP 1*RB 

38  ORB  = XM2/X  IY-T HP1*QB 

39  DTHA  * QB*C  SPHI— RB*  SNPHI 

40  DPS  I * ( RB*CS  PH  I tQB*SNPHI I /CSTHA 

41  DPHI  = PBAOPSI*  SNTHA 

42  pP  = P0»R  TO 

43  HQ  = Q83RT0 

44  HR  = R8*RT0 

45  BPrf  « PHI*RTO 

47  C ♦»*  NOTIFY  DERIVATIVES  WHEN  LAUNCHER  DYNAMICS  ARE  IN  EFFECT 

48  C 

4S  GvJ  TO  (50, 30, 20), LAUNCH 

50  20  RETURN 

51  30  RLCG  = PLCG04R0CG 

52  CALL  TRANS(ECS8CS, OUE, BACC) 

53  TMP1*  RLC5/XIY 

54  THP2  * XM*PLCG 
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55 

TMP3  ■ TMP1*TMP 2*1. 

56 

FLY  ■ !0R6*TMP2-0V8*XM»/TMP3 

57 

FL2  ■ -I308*TMP2*0«8*XHJ/THP3 

53 

0V3*  OVB* FLY/XK 

59 

OWB  ■ DMB»FL2/XH 

60 

0P3  >0. 

61 

OQB  « 0Q8*FLZ*THP1 

62 

ORB  « 0RB-FLY*TMP1 

63 

CALL  TRANSiBCSECS.BACC.DUE) 

64 

RETURN 

65  50 

CALL  TRANS! ECSSCS( DUE (B ACC ) 

66 

0V3  » 0. 

67 

OMB  >0. 

63 

0P8  *0. 

69 

OQB  >0. 

70 

ORB  “0. 

71 

CALL  TRANS! BCSECS,BACC,OUEJ 

72 

RETURN 

73 

ENTRY  rotzer 

74 

XHXTH  >0. 

75 

XMYTH  ■ 0. 

76 

XHZTH  -0. 

77 

RETURN 

78 

END 

CARO 

1 SUBROUTINE  TRANS(THTXi  VECTOR  (RESULT ) 

2 DIMENSION  THTX! 3,3)  .VECTOR!  3 »f RESULT!  3J 

3 RESULT!  1)  - TMTXUfl)*VEC7ORUWHTXU,2»*VECT0R!2>*TMTX!l,3>* 

4 1VECTOR!  3) 

5 RESUITC2)  « TMTX!2(  1 )*VECTOR!  I l+THTX!  2,  2)* VECTOR  ( 2)  ♦TMTXI  2(3) * 

5 IVECTOR! 31 

7 RESUL  T(  3)  » TMT  X(  3(  1 )*VECTOR!  l>  HMT  X!  3 ( 2t*  VECTOR!  2)«TNTXf3,3l* 

9 IVECTORI3I 

9 RETURN 

10  END 
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SUBROUTINE  TRANS* 

C • •* 

C THIS  ROUTINE  CALCULATES  DERIVATIVES  FOR  THE  TRANSLATIONAL 
C EQUATIONS  OF  MISSILE  MOTION,  INCLUDING  LAUNCHER  DYNAMICS  WHEN 

C APPROPRIATE. 

C *** 

COMMON  /STATEV/ NT  ,UE, V£,HE,X, Y,  Z,  DUE,  OVE, OWE,  OX ,DY , 01 
COMMON  /ROTATE/NR,PB,QB,RB, THETA, PHI ,PSI,OPB,OQB,ORB,OTHA,OPHI 
l,OPSI,SNf  HA,CSTHA,SNPHl  ,CSPH!,SNPSI  ,CSP SI  ,WF ,UQ,MR,BTH£TA,8PH,BPS 
COMMON  /GE0MK/S,0,XTCG, YTCG,ZTCG,RL1,RL2,HUE,MVE,UME 
COMMON  /MSINCG/S!  ,WO,WP  ,X!X0,X!  YQ,RLCGO,RDCGO«ROCGP«XM,XIX,XIY, 
1RLCG.R0CG 

COMMON  /FCEMOM/FXA,FYA,FZA ,XMXA ,XMYA,XMZA,FTHX, FT KY.FTHZ 
COMMON  /TRANSF/BCSECSI  3,31,ECS3CS(3,3)  ,BCSGCS(3,3)  ,ECSGCS<3,3) 
COMMON  /BL0ca6/  3ACS ( 3 ) 

COMMON  /COEFS/THR ,AERC( 18) 

COMMON  /UTILTY/G.RTD 
COMMON  / BL0CK7/KX3 ,THRP,T IMP 
COMMON  /3L0CK8/KK1 <KK5, VP 
DIMENSION  ANGLSI6) 

EQUIVALENCE  (ANGLStl ),PB) 

C 

C ***  CALCULATE  EULER  TRIGONOMETRICAL  TERMS 
C 

IF( KKl.EQ.OIGO  TO  20 
SNTHA  * SINITHETAI 
CSTHA  « COSITHETA) 

SNPHI  « SINIPHIT 
CSPHI  * COSIPHII 
SNPSI  - SINIPSII 
CSPSI  » COSIPSII 
C 

C »**  CALCULATE  BOOY/EARTH  AND  EARTH/ BODY  TRANSFORMATION  NATRICES 

C 

TMP1  « SNPHI*SNTHA 

TM»2  » CSPHI*SNTHA 

BCSECSI  1, 1)  » CSPSI*CSTHA 

BCSECS 1 2 ,1 1 » SNP$I*CSTHA 

BCSECSI  3,  II  —SNTHA 

BCSECSI  1,21*  CSPSI*TNP1-SNPSI*CSPHI 

BCSECSI 2,2) * SNPSI* TMP1 fCSPS l*CSPHl 

BCSECSI  3,  21*  CSTHA*SNPHI 

BCSECS  1 1,3  I*  CSPSI*TMP2*SNPSI*SNPHI 

BCSECSI  2,3)  * SNPSI*  TMP2-CSPSI*SNPHI 

BCSECSI 3, 31*  CSTHA*CSPHI 

00  15  I *i  ,3 

00  15  K*l,3 

15  ECS6CSI  I,K)»  BCSECSIK.I  ) 

C 

C ♦**  CALCULATE  AERODYNAMIC  FORCES  ANO  MOMENTS 
C 

20  CALL  AEROOY 
C 

C ***  CALCULATE  THRUST  COMPONENTS 
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; CARD 

55  C 

i 5t>  FTHX  * THR*COSAT 

I 57  FTHY  « THP.*SATPHI 

53  FTHZ  * THR*SATCPH 

59  C 

60  C ***  CALCULATE  &00Y  ACCELERATIONS  EXCLUDING  GRAVITY 
51  C 

62  BACSIll  « (FTHX-FXAJ/XM 

o3  8ACSI2)  « ( FTHY+FYA )/XN 

64  SACS  <3 ) * <FTHZ*FZA)/XN 

65  I F I KK3«NE»0) RETURN  ; 

66  C 

67  C ***  TRANSFORM  BOOY  ACCELERATIONS  TO  ECS  AND  CALCULATE  DERIVATIVES 

63  C 1 

69  CALL  TRAVS(BCSECStBACS.DUE) 

70  OWE  * OWERG 

71  DX  « UE 

I 72  OY  « VE 

73  DZ  * ME 

74  RETURN  : 

75  ENTRY  INTRAN  ; 

76  C 

77  C »*»  CALCULATE  THRUST  ANGLES  AS  SINES  AND  COSINES 

; 73  C 

I 79  IMP  1 * SQRT(XTCG*XTCGmC3*YTC3*ZTCG*ZTCG» 

GO  COSAT  * XTCG/THP1 

31  SATPHI  « YTC3/TMPI 

32  SATCPH  * ZTCG/TMP1  i 

13  C 

d4  C •**  CONVERT  INITIAL  VALUES  TO  RADIANS  ( 

35  C 5 

36  DO  10  1*1  ,6 

37  10  ANGLSI 1 1 * ANGLSI I ) /HTO  j 

38  RETURN  j 

39  ENd  J 
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SUBROUTINE  AUTOPT 

COMMON  / AUT0P/NA,ZP1,ZP2,ZP3,ZY1,ZY2,ZY3,ZR1,ZR2,BPHIS.ZPI1,ZPI2, 
lEOOCRf ZYI 1,ZYI2*EVNCR»ZP0 It  ZP02,ZPD3,ZYQ1*Z YD2, ZY03 ,ZROl , ZR02, 
2BPH! SO. ZPID1 ,ZP!02, EODCRO, ZY 101 • ZYID2,  EVNCRDt EZSSt  EYSS, WQC.WRC, 
3EZR  R » £ YRR ,BOELPC 

COMMON  / AUTOK/  MUG, OQG, TAUZ , TAUY, TAUL .GYZ ,RA 1 , RB2, MP1 ,OPl , RK1 , 
1PYAK1  f PV8K1  «PYI K1  ,WQl  ,0Q1 , PYLIM.RLI M,GB  1 AS , QBUS,  RB IAS 
COMMON  /SEEKR/  NS,VS(  21  ,DVS<  2)  ,OSV(  8) 

COMMON  /ROT ATE/NR,PB  ,QB, RB, THET  A,  PHI ,PS  I , DP  B,  DQ8,0R8,DTHA ,DPHI , 
l DP  SI , SNTHA  ,C  STHA  ,SNPH1  ,CSPHI  ,SNPSI  ,CSPS  I, HP, HQ, HR,  BTHETA,  BPH,  BPS 
COMMON  /0LK1/BPHISM 
EQUIVALENCE  (EZ.OSVUJ),  (EY,0SV(2t> 

C ***  LIMITATION  OP  INTEGRATORS* 

EODCR  = XLIMITIEODCR,  PYL1M  1 
EVNCR  - XLI Ml T (EVNCR.PYLIMI 
C ***  GUIOANCE  FILTER  - PITCH 

ZP01  » GYZ*EZ-TAUZ*U3.*<ZP1«-TAUZ*ZP2))*TAUZ*TAUZ*ZP3I 
ZPD2  » ZP1 
ZP03  = ZP2 
EZSo  = TAUL»ZP3*ZP2 
C ***  GUIDANCE  FILTER  - YAH 

ZY01  « GYZ*EY-TAIJY*<(3.*<ZYl*T4UY*ZY2))*TAUY*TAUY*ZY3) 

ZYD2  * ZYI 
ZYO  - Y2 
EYS  AUL*ZY3*ZY2 
HOC  -ZSS+QBI AS+GBt AS 

HRC  « EYSS  ♦ RBI  AS 
HQOIF  « HQ  -HQC 
■HROIF  « HR  -HRC 
cZRR  « HQOIF-HROIF 
EYRR  * W30IF*HR0IF 
C *»<*  ROLL  COMPENSATION 

ZR31  *=  HP1*(HP1*I8PH-ZR2I-2.*0P1»ZR1) 

ZRU2  * ZR1 

BPH  I SM  = RKl*  (7.R2*  I ( RA1  *RB2  J*  ZRl  *ZRDi  1/ RA1/ RB2 ) 

BPH  I SO  « xlimitibphism.rlim) 

BOELPC  *0 .1*1 BPHIS  ♦ 10.0*BPHISO» 

C ***  PITCH  INTEGRATOR 

ZPID1  * TMP7«EZRR  - THP2*ZPU  - TMP1*ZPI2 
ZPI02  * ZPU 

EOOCRO  « TMP3*ZPI2*TMP4*ZPI1*ZPIDI 
C ♦ **  YAH  INTEGRATOR* 

ZYI  01  » TMP7*EYRR  - TMP2*ZYll  - TMP1*ZYI2 
ZYID2  * ZYI  1 

EVNCRD  * TMP3*ZYI2fTMP4*ZYIl*ZYIDl 

RETURN 

ENTRY  INAUPT 

TMP1  * WQ1*HQ1 

TN°2  « 2.  *0QI*HQ1 

TMP3  * PYAK 1*PYBK 1 

THP4  « PYAK14PY8K1 

THP  5 « HQG*WQG 

TMP6  * 2.*0QG*HQG 

TMP7  = PYIK1*HQ1*HQ1/THP3 

RETURN 

END 
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CA»0 

1 SUBROUTINE  AERODY 

2 C *** 

3 C THIS  ROUTINE  EVALUATES  AERODTNAKIC  FORCES  AND  MOMENTS  APPLIED  TO 

A C THE  MISSILE , USING  COEFFICENTS  AND  DERIVATIVES  OBTAINEO  BY  TABLE 

5 C INTERPOLATION.  FORCES  AND  MOMENTS  ARE  RETURNED  IN  COMMON  BLOCK 

6 C /FCEMOH/. 

7 C **♦ 

8 COMMON  /C0EFS/rHR,CM0,CNR,CNP.CY2,CL3,CX0,CM0,:DCM,CNF,CN2. 

9 1CLP  »CL2 »CXC*CN3»CMDQP«CLORP,  CMRtCLD 

10  COMMON  /AOOV/ALFAP, ALFA, BETA, XMN.CSPHIP , SNPHI P, QUE, VA.RHO 

11  COMMON  /STATEV/NT,UE,V£,WE,X,Y,Z.DUE,DVE,OWE,DX,DY,OZ 

12  COMMON  /TIMES/T,OT,TBO,TSTOP, IPR.J, LAUNCH 

13  COMMON  /ROTATE/NP.  ,PB  ,QB  ,RB , THETA , PHI  ,PSI  ,DPB, DQB.DRB, OTHA,  OPHI 

1A  l.OPSI.SNTHA.CSTHA.SNPHIiCSPHIfSNPSI  »CSP SI *wP. WO. WR, BTHETA.BPH .BPS 

ti  COMMON  /GE0MK/S,0,XTCG,YTCG,ZTCG,RL1,RL2,KUE,WVE,WWE 

16  COMMON  /VANES/N V, VVOl 8) «DE LQ  ,DE  LR  ,DELP 

17  COMMON  /FCEMOM/  FXA, FY  A.FZA.XMXA,  XMYA,  XMZA.FTHX,  FTHYtFTHZ 

13  COMMON  /TRANSF/8CSECSI3.3I  , ECSBCS  (3  , 3 1 i BCSGCS (3  ,3 1 , ECSGCS  1 3, 3 1 

19  COMMON  / BLOCKS/ KK 1 ,KK 5,  VP 

20  DOUBLE  PRECISION  T.  OT 

21  DIMENSION  BVELI  3)  ,0UM(3I 

22  EQUIVALENCE  (U  8,  BV  EL  < 1 It , ( VB,  BVEL  ( 2)1 , t WB,B  VEL<  31) 

23  1F(KK5.EQ.1)G0  TO  30 

2*  DUM(l)  = UE-HUE 

2 DUMI21  = VE-WVE 

26  DUM  ( 31  * WE-WWE 

27  CALL  TRANSIECSBCS.OUM.BVELl 

28  P.HO  = 2.3738E-3*6.78AA£-8*Z 

29  VA  = 1116. 08*3. 6292E-3*Z 

30  TMP 1 * VB*VB»HB*HB 

31  VP  = UB*U8*TMP1 

32  TMP1  = SORT ( TMP1 ) 

33  QUE  = 0.5»RH0*VP 

3A  VP  = SQRTIVP1 

35  XMN  = VP/VA 

16  ALFA  = ATANIWB/UBI 

37  BETA  = ATANIVB/UBI 

38  ALFAP  * A TANl TMP1/UB) 

39  IF  (TMPl.EQ.O.lGO  TO  AO 

A 0 CSPHIP  » WB/TMPl 

Al  SNPHIP  = V8/TMP1 

A2  GO  TO  50 

A3  AO  CSPHIP  « 1. 

AA  SNPHIP  * 0. 

A5  50  CONTINUE 

A6  50  TO  t 10,201 ,J 

A 7 10  CALL  0TLUX1 

A8  GO  TO  30 

A 9 20  CALL  DTLUX2 

.50  30  SN2PHI  » 2.* SNPHIP* CSPHIP 

51  SNAPHI  * 2, *SN2PHI*(C  SPHI P-SNPMl P| » (CSPHJ  P»  SNPHI PI 

52  SN2PHI  = SN2PHI*SN2PHI 

53  TMP  1 * OELR*CMR 

5A  TMP 2 * OELQ*CMOQP 


TMP3  • TMP1*CSPHIP*THP2*SNPHIP 

THP4  « THP2*C$PH1 P-TMPIPSNPHtP 

TMP1  « CNP*$N4PHI*TMP3 

TMP2  « CMO»COCH*SN2PHJ*THP4 

CM  « CSPHiP*TMP2*-SNPHIP*TMPl 

CN  « CSPHIP*THP  1-SNPHIP*TMP2 

CL  » CL2*SN4PH!*CL3*SNPHIP*0ELPPCL0 

CX-CXOfCXC 

TMP1  « D£LR*CLORP 

TMP2  - 06LQPCNQ 

TMP3  ■ TMP1*CSPHI P»THP2*SNPHI P 

I MP4  ■ TMP2*CSPHIP-THPl*SNPHIP 

TMP1  ■ CY2*$N4PHI*TNP3 

TMP2  « CNF»CN2*SN2PHI*-TNP4 

CY  « CSPHIP*TNP1-SNPHIP*TNP2 

CZ  * -CSPHI  P»TH P2-SNPH1  P*TMP1 

TMP1  ■ QU£*S 

FXA  « THP1PCX 

FY*  « TMP1*CY 

FZA  » rMPl«CZ 

TMP1  - THPL*0 

TMP  2 - 0.  5*D/VP 

XMXA  * TMP1P«CL4HP*TMP2*CLP) 

XMYA«  TMPl»<CM»WQ*TNP2*CNQJ 
XNZA  « ;mP1*«CN*WR*TMP2*CNRJ 
RETURN 
END 
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1 SUBROUTINE  OTLUX1 

2 C ♦»* 

3 C THIS  ROUTINE  OBTAINS  THRUST  AND  AERODYNAMIC  COEFFICIENTS  AND 

4 C DERIVATIVES  FROM  TABLE  INTERPOLATION.  TABULATED  FUNCTIONS  ARE 

5 C HELD  IN  BLANK  COMMON  AND  ROUTINE  1NTRP3  IS  CALLED  TO  PERFORM  THE 

6 C ACTUAL  INTERPOLATION.  RESULTS  ARE  RETURNED  IN  COMMON  BLOCK  /COEFS/ 

T C •** 

3 COMMON  / AOOV/ AL FAP, ALFA, BETA,XNN«CSPHtP  , SNPHI P, QUE  » VSS,  RHO 

9 COMMON  /TIMES/T 

10  COMMON  /VANES/SKPK9),0ELQ,0ELR,DELP 

11  COMMON  /COEFS/T  HR»CMQ,CNR» CNP,CY2,CL3,CX0»CM0,C0CM,CNF «CN2«CLP,CL2 

12  ItCXCtCNOtCMDQPi CLORP  iCMRtCLD 

13  COMMON  /UTILTY/GiRTD 

14  OOJBLE  PRECISION  T 

15  DIMENSION  0NEDM14),  TWODM(T) 

16  EQUIVALENCE  (0NE0M1  1)  ,CNP  I , ( TWODH<  l>  ,CMO> 

17  T1  * SNGL(T) 

16  IF(  Tl.GT.  . L4IG0  TO  10 

19  CALL  INTRP3(Tl,0.,0.,  l.THR) 

20  30  TO  20 

21  10  CALL  INTRP3(T1,0.,0.,2,THR) 

22  GO  TO  20 

23  ENTRY  0TLUX2 

24  20  ALF  « ABS( ALFA) *RTO 

25  BET  * ABStBETAlRRTD 

26  ALF P « ALFAP*RTO 

27  DQ  * ABS(OELQ) 

28  OP  * ABStOELR) 

29  -CALL  INTRP3 ( ALF ,0.<  0. ,3  »CMQ) 

30  CALL  INTRP3(BET,0.,0.,3,CNR) 

31  DO  30  1*4  »6 

32  30  CALL  INTRP31ALFP.0.  ,0.  . I . ONEOMU-3)  ) 

33  CALL  INTRP3C  XMN  , 0. , 0. , 7,  CXO ) 

34  00  40  1*8,14 

35  40  CALL  INTRP3(ALFP,XMN,0.  ,1  ,TWODMU-TJ  ) 

35  CALL  INT RP3 1 ALFP, XMN, OQ , 15, CNQ ) 

37  CALL  I NTRP31 ALFP ,XMN, OR, 15 , CLORP) 

38  CALL  INTRP31 ALFP ,XMN«0Q , 16,C MDQP) 

39  CALL  INTRP3 (ALFP, XMN, OR, 16, CMR I 

40  CALL  INTRP3I  ALFP , XMN,  AB  SIDE  LP) ,17 ,CLD) 

41  RETURN 

42  ENO 
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X SUBROUTINE  THRCCN 

2 C »»* 

3 C THIS  ROUTINE  CALCULATES  MISSILE  MASS.  INERTIAS  AND  CG  POSITION 

VC  AS  A FUNCTION  OF  ENGINE  THRUST  CONDITIONS.  THE  INTEGRAL  OF  THE 

■3  C THRUST  IS  CALCULATED  BY  THE  TRAPEZOIDAL  RULE  TO  OBTAIN  ENGINE 

6 C IMPULSE. 

7 C *♦* 

d COMMON  /COEFS/THRtAERCi  X8I 

9 COMMON  /MSINCG/SI  »WO  *WP*XIXOfXIYC*RLCGO*  RDCGO»ROCGP,  XM,  XIX*  XI Y* 

10  1ALCG.RDC3 

11  COMMON  /TIMES/T,CT,TBO,TSTOP,IPR,J, LAUNCH 

12  COMMON  /UTI LTY/G.RTD 

13  COMMON  / BL  OCX  7 /KK  3 » THP  P , T1 HP 

IV  DOUBLE  PRECISION  T,DT 

15  TIMP  - TIMPv.5*  (T-TPRI*(THP.vTHRPJ 

16  THRP  ■ THR 

17  T PR  « T 

1C  OELW  - TIMP/S! 

19  XM  « IWO-OELH1/G 

20  TMP1  « l.-OELH/WO 

21  XIX  « XI XO* TMP1 

22  XIV  » X.Y0*TMP1 

22  RDCG  - ROCGO-OELH*CGSHWP 

2 V RETURN 

25  ENTRY INTHRC 

26  C 

27  C ***  (ERO  STARTING  VALUES  TF  THRUST  INTEGRAL  AND  TIME 

15  c . o. 

30  TPR  *0. 

31  THRP  « 0. 

32  C3SHWP  * (ROCGO-ROCGPI/WP 

33  RETURN 

3V  END 
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1 SUBROUT  INE  INTRP3I  X,  Y,Z,  I,FXYZ> 

2 C ♦ ** 

3 C THIS  ROUTINE  PERFORMS  LINEAR  INTERPOLATION  IN  TABULATED  FUNCTIONS 

4 C OF  1,  2 OR  3 INOEPENOENT  VARIABLES.  THE  FUNCTIONS  MUST  BE 

5 C TABULATED  FOR  VALUES  OF  INDEPENDENT  VARIABLES  WHICH  START  AT  ZERO 

6 C AND  INCREASE  WITH  CONSTANT  INTERVALS.  THE  TABLES  USED  ARE  DEFINED 

7 C FOR  POSITIVE  RANGES  OF  INDEPENDENT  VARIABLES  BUT  IF  REQUIRED 

8 C THE  VARIABLE  INCREMENT  NAY  BE  NEGATIVE. 

9 C *** 


10 

COMMON  DXOY 02(60 )«!  ADD!  20  It  AERO ( 1360) 

11 

J =>  3*1-2 

12 

OX  • DXOYOZUI 

13 

OY  * DXCYDZ ( J*1 1 

14 

OZ  « DXOYDZ ( J*2) 

15 

J * I FIX  (X/ OX  I 

16 

DELX  » X/OX-FLOATIJ) 

17 

IF  (OY.EQ.O.IGO  TO  40 

18 

IF  (J.GT.16IJ*16 

19 

X « IFIXIY/OYI 

20 

UEL  Y » Y/OY-FLO ATI  K I 

21 

IF  (K.GT.4)K>4 

22 

IF  1 02. EQ. 0. ISO  TO  50 

23 

L * IFIX(  Z/OZ  1 

24 

UEL Z - Z/OZ-FLOAT (L I 

25 

IF  ( L.GT. 4) L=4 

26 

M = J*16*K*64*L ♦ I ADO ( 1 1 

27 

N « l 

28 

NN  » 2 

29 

GO  TO  30 

30 

10 

M * M*64 

31 

N r 2 

32 

FXY1  - FXY 

33 

GO  TO  30 

34 

20 

FXYZ  5 FXY1MFXY-FXY1I»DELZ 

35 

RETURN 

36 

40 

M « J + IAOOdl 

37 

NN  « 1 

38 

GO  TO  30 

39 

50 

M « J*16*KMA0C|U) 

40 

NN  « 2 

41 

N « 3 

42 

30  TO  30 

43 

60 

FXYZ  « FXl 

44- 

RETURN 

45 

70 

FXYZ  ■ FXY 

46 

RETURN 

47 

30 

FXl  • AERO(MI ♦( AERO  <M+1 l-AEROIM 1 )*DELX 

48 

GO  T0(60f80) tNN 

49 

80 

H » MF16 

50 

FX2  « AERO(M)F(AERO(M4l)-AERO(M))*OELX 

51 

M « M-16 

52 

FXY  « FX1f(  FX2-FX1)*0ELY 

53 

GO  T0(10,20  ,701  ,N 

54 

END 
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SUBROUTINE  RROATA 

COMMON  /SEEKR/  NS«VSt2) iOVS(2) •OtV(l) 

COMMON  /HMES/T  ,DT, T»0, TSTQPtlPR, J, UUNCH 
DOUBLE  PRECISION  T,QT 
COMMON  /CNTRL/OUHU)  ,0ATA(64| 

COMMON  / AUTQP/NA,VAI  191* OVA ( lSliQVI  71 
COMMON  /VANES/NV, VVI4)  ,0VVI4 I ,OiLI J ) 

COMMON  /RQTATE/NR,P8,QB,AB,  THETA, PHI ,P$I ,DPB,DQB,ORB«OTHA,DPHI 
It  OP  St  ,SNTHA,CST  HA,SNPHI  «CSPHt  ,SNPSI « CSPSI  ,WP,  W3 , WR , STHETA  ,BPH,|P$ 
COMMON  /STATEV/NT,UE,VE,WE,X,Y,Z,OUE,DVE,WE,OX,OY,  01 
COMMON  / AQDV/ ALFAP, ALFA, BETA, XNN, CSPHIP  i SN»HI P , QUE  t VSS  t RHO 
COMMON  /CQEFS/THRt AERCI 18 ) 

COMMON  /GEOHK/S  ,0 ,XTCG» YTCG , ZTCG ,RL1 ,RLZ ,WUE, WVE,WWE 
COMMON  /MS  INCG/S1  ,WO,WF,  XIXOt  X!  YOtRICGO  ,R0CG0,R0CGP»XM»;U  Xt  XI  Yt 
IRLCGtROCG 

COMMON  /FCEMaM/FXA,FYA,FZA,XNXA,XMYA,XHZA,FTnX,FTHY,FTHZ 
COMMON  / INCEPT / UT (3 h XT ( 3»t TMVEL t TMRNGE t BEPSt t BEPSY 
COMMON  / AUTOK/  HOG  ,DQG,TAUZ  tTAUY  tT  AUL  tGY  Z,  AA1,  RB2.WP1  t OP  It  RX  It 
IP  YAK  It  PYBKltP  YtK  1 tWQ  1 tOQl  tPYLIMtRLI  MtGB!  AS  t OBI  ASt  RBI  AS 
COMMON  /UTILTY/G  tRTO 
DIMENSION  RORVI  61  t 00RVI6) 

EQUIVALENCE  I RORV! 1 1 ,OP0 I 
BTHETA  - THET A*RTO 
BPS  « PSI*RTO 
GO  T0(40t  50,60),  ISW 
40  RETURN 

50  WRITE!  6,930)  f ,UE , VEtHE ,X,Y,Z ,HP, WQ.WR.BTHETA, bPH,BPS,UT,XT , 

1 TMRNGE, TMV  EL,  VS 
LINES  - LINE  S«-3 
IFdINES  .IT.  52)  RETURN 
LINES  - 1 
PAGE  « IPAGEtl 
WRITE  ( 6,940)  IFAGE 

TURN 

60  CONTINUE 
CONTINUE 
I PAGE  « IPAGE»l 
WRITE  ( 6,940)  PAGE 

ALFAP  » ALF APART 0 
ALFA  » ALFA*RTO 
BETA  * BETA*RTO 

CSPHIP  » ATAN2(SNPHIP,CSPHIP)ART0 
00  70  1*1,6 

70  UORVtl)  • RORVI  l)*RTO 

WRITE!  6,950)  TiUE,VEiWE,X,YiZiDUS,OVE»OWE»DX,OY,OZ 

WRITE!  6,960)  WP,WQ, WR,BTHETA, BPH , BPS, DORV 

WRITE!  6,970)  VS,OVS 

WRITE!  6,9801  VA.OVA 

W° I TE!  6,990)  VV,OVV 

WRITE!  6,10001  OEL,  BEPSZ, BEPSY, USYtOV 

WRITE!  6,1010)  XMN,  VSS,  RHO,  QUE,  ALFAP,  ALFA,  BETA,  CSPHIP,  AERC, 

1 FXA,  FY  A,  FZA*  XM  XA,  XHYA,  XHZ  A 
WRITE!  6,1020)  FTHX  ,FTHY  ,FTH1,  XH,  XIX,  XT  Y,  ROCG 
WRITE!  6,10301  UT,  XT,  TMRNGE,  THVEL 
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l 

% 

\ 


179 


CAPO 

55  RETURN 

56  ENTRY  PP.HEAO 

57  WRIT  E(  4,9001  <OATA<  1)  , 1*1 ,20) 

58  WRITE!  6,920)  S,0,RL1 ,RL2 ,W0 ,WF,XI XO,X IYO, RDCGO.RDCGP.QBIAS, 

59  IRBt  AS,  XTCG,  YTCG  »Z TCG ,WUE » WVE , WWE , RLC3 0,  SI  ,DT 

60  LINES  « 40 

61  IPAGE  « 1 

62  If  (IPRUO, 20,30 

63  10  ISW  « 3 

64  IPR  « -IPR 

65  RETURN 

66  20  ISW  * ). 

6 7 RETURN 

68  30  ISW  « 2 

69  WRITE!  6,910) 

70  RETURN 

71  903  FQRHAT  (1H1.120X,  ‘PAGE  l • ,/48X,  ‘TERMINAL  HONING  SIMULATION  (DIGITAL 

72  IS  /48X,36t'-'l  , //20X.20A4  //) 

73  910  FORHAT(//25X,  'RESULTS  ROW  US  /30X,  'COLUMN  1 TINE  IN  SECONOSS 

74  125X, 'COLUMN  2 UE  IN  FT/SECS  /30X, 'COLUMN  3 VE  IN  FT/SEC • »28X, 

75  2' COLUMN  4 WE  IN  FT/SECS  /30X, 'COLUMN  5 MISSILE  X COORD  IN  FT', 

7o  319X, 'COLUMN  6 MISSILE  Y COORD  IN  FT',  /30X, 'COLUMN  7 MISSILE  l 

77  4C00R0  IN  FT',  19X,' COLUMN  8 ROLL  RATE  IN  OEG/SECS  /30X,  'COLUMN  9 

78  5 PITCH  RATE  IN  OEG/SEC,  19X, 'COLUMN  10  YAK  RATE  IN  OEG/SECS  /30 

79  6X , • COLUMN  11  THETA  IN  OEGREES* , 24X, 'COLUMN  12  PHI  IN  DEGREES',  / 

eo  730X, 'COLUHN  13  PSI  IN  DEGREES',  //25X ,' RESJLTS  ROW  2:',  /30X, 

81  8' COLUMN  2 TARGET  U IN  FT/SECS  21X, 'COLUMN  3 TARGET  V IN  FT/SEC' 

32  9,  /30X, 'COLUMN  4 TARGET  M IN  FT/SEC ',  21X, 'COLUMN  5 TARGET  X COORD 

83  ARC  IN  FTS/30X, 'COLUMN  6 TARGET  Y COORD  IN  FT',  19X, 'COLUMN  7 TA 

84  QRGET  Z COORD  IN  FT',  /30X, 'COLUMN  8 MI  SSI  LE/TARGET  RANGE  IN  FT', 

85  C13X, 'COLUMN  9 M I SS I LE/T  ARGET  CLOSING  SPEED  IN  FT/SEC',  /30X, 'COLU 

86  OMN  10  GIMBAL  ANGLE  THETAG  IN  DEGREES',  9X, 'COLUMN  11  GIMBAL  ANGLE 

87  EPSIG  IN  OEGREES') 

80  920  FORMAT  I5X, 'VEHICLE  OETAILS:',  //10X, 'REFERENCE  AREA',  15X.F8.3, 

99  1«  SO  FT',  20X,' REFERENCE  LENGTH',  12X.F8.3,  • FT',  /10X, 'FRONT  LUG 

90  2 LAUNCHER  TRAVEL  S4X , F8  .3,  ’ FT »,  23X, 'REAR  LUG  LAUNCHER  TRAVEL',  4X, 

91  3F8.3,  • FT' ,/10X, 'INITIAL  TOTAL  WEIGHT',  9X.F8.2,  • LbS',  22X, 

92  4 ' PRUPELLANT  WEIGH)',  10X.F8.2,  • LBS',/  10X, ' INI  TIAL  X MOM.  OF  I,', 

93  5 9X.F8.3,  ' SLUGS  FT**2S  14X,»  INITIAL  YM3M,  3F.I.S  8X,F8.3,- 

94  6'  SLUGS  FT**2S  /lOX.'CG  TOTAL  SHI  FT'  ,1 5X  ,F8 .3 , ' FT',  23X, 

95  7 ' PROPELLANT  CG  TO  CG0«,  8X.F8.3,  ' FT  • , /10X, ' AUTOPI  LOT  C 81  ASS 

96  813X.F8.3,  ' OEG/SECS  1 8X , • AUTOP I LOT  R BIAS',  12X.F8.3,  • DEG/SEC' 

97  9/10X, 'THRUST  POINT  OFFSETS  (X,Y,Z  F T)  ',  10X,3F10.2,/10X, ' WIND  SPEED 

98  A COMPONENTS  (XE.YC.ZE  F/S1S  5X.3F10.1,  /10X, 'REAR  LUG  TO  CGO!FT)' 

99  B,22X,F10.3,/10X, 'ENGINE  SPECIFIC  IMPULSES  6X.F8.3,  • SECS',  21X, 

130  C 'INTEGRATION  STEP  LENGTHS  5X.F8.4,  • SECS') 

101  930  FORMAT  (/3X.P6.3,  213F10.2,  3F10. 1) , /9X,  3F10.2.  4F10.I,  3F10.2) 

102  940  FORMAT!  HI, 30X, 'TERMINAL  HOMING  CONTO  SIX, 'PAGE',  13) 

103  950  FORMAT  (//  10X, 'TIME ',F8.3,  ' SECONOSS  //5X,'  TRANSLATION  VAR!  AB 

104  LLES  IN  F/SEC  AND  FT',  12X.3F10.2,  3 FLO. It  /5X, 'TRANSLATION  OERIVAT 

105  2IVES  IN  F /SEC** 2 ANO  F/SEC',  5X.3FI0.3,  3F10.2) 

lOo  960  FORMAT  (/ 5X , ' ROT  AT  ION  VARIABLES  IN  DEG/SEC  AND  OEGSS  UX.6F10.2, 

107  1/5X, 'ROTATION  DERIVATIVES  IN  0EG/SEC**2  AND  DEG/SEC',  4X,6F10,3) 

108  970  FORMAT  I/5X, 'SEEKER  VARIABLES  IN  DEG  ANO  OEG/SECS  15X.2F10.3  ,/5X, 
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109  1 'SEEKER  DERIVATIVES  IN  OEG/SEC  AND  0EG/SEC**2' , 8X.2F10.3I 

110  980  FORMAT  1/5X, 'AUTOPILOT  VARIABLES  IN  OEG  ETC',  20X.6F10.3,  /55X, 

111  1 6F10.3,  /55X*7F 10, 3,  /5X, • AUTOPI LOT  DERIVATIVES  IN  OEG  ETC',  18X, 

112  26F10.3,  / 55X, 6F 10 .3 , /55X.7F10.3) 

113  990  FORMAT  (/5X,'VANE  VARIABLES  IN  DEGREES',  2SX.4F10.3,  /5X, 

114  1 'VANE  DERIVATIVES  IN  DEG/SEC,  23X.4F10.3) 

115  1000  FORMAT  (/ »X , • DELO,  OELR,  DELP  (DEGREES  ) ',  11X,  3F8.  3, 11X,  'BEPS2  E BEP 

116  1SYI0EGS) • • 2X, 2F8. 3 ,//5X, 'SEEKER  ADDITIONAL  VARIABLES',  4X.8F10.3 

117  2, //5X, 'AUTOPILOT  ADDITIONAL  VARIABLES',  10X.7F10.3) 

118  1010  FORMAT  I/SX.'MACH  NO',  F9.2,  4X,  'SONIC  SP',  FB.l,  4X, 'AIR  DENS', 

119  2FB.6,  4X,'0YN  ORES',  F8.2,  4X,'ALFA  P' , F10.3,  4X,'ALFA',  F12.3, 

120  2/5X  'BETA*,  F12.3,  4X,'PHI  PR',  FIO.  3, //5X, 'AERODYNAMIC  COEFFICIENT 

121  3TS'  , /5X,'CM0(AM  ,.  F10.4,  4X, ' CNR  18  I • , F10.4,  4X,'CNP1A)',  F10.4, 

I 122  44X,  *CY2I A I • , F10,4,  4X,'GL3<AI',  F10.4,  4X,'CA0(M)«,  F10.4,  4 X/ 5 X , 

[ 123  5'  CMO ( A, M)  • , F8.4,  4X,  'COCM t A,M I • , F7.4,  4X,  'CNF ( A,M>  • , F8.4,  4X, 

f 124  6'CN2(  Af  Ml  * , F6.4,  4X  ,'CLP(  A ,M>  • , F3.4,  4X , • CL21  A,  M)  • , F8.4,  /5X, 

I 125  7'CXC1  A,M  J 1 , F8.4,  4X,  'C  NQl  A ,M,Q)  • , F6.4,  4X ,' CMDQPI3V)  • , FT. 4,  4X, 

| 126  8*  Cl  0RP13VI  ’ , F7.4,4X,'CMP(A,M,R1',  F6.4,  4X, 'CLDt  A,M,P  I • , F6.4, 

127  9//  5X,  'AERODYNAMIC  FOF.CES  AND  MOMENTS' , /5X, • FXAl LBI • , F9.2,  4X, 

| 128  A'FYA(LB)' , F9.2,  4X, 'F2AILBI  • , F9.2,  4X,  • MXAl  L3FTI ' , F7.2,  4X, 

! 129  8' MYA1 LBFT I • , F7.2,  4X , ' HZAIL  BFT  ) • , FT .21 

I 130  1020  FORMAT  1/5X, 'THRUST  COMPONENTS  IX, Y, l IBM,  3FB.I,  4X, 'MASS',  F8.2 

j 131  1,  4X,'X  M.  OF  I.',  F8.2,  4X,»Y  M.  IF  I.',  F8.3,/5X,'CG  SHIFT' ,20X, 

j 132  2 F8.3I 

133  1030  FORMAT  1/5X, 'TARGET  SREEO  IX, Y, 2 FT/SECM,  3F8.1,  4X, 'TARGET  POSIT 

134  1 ION  (X,  Y,  l FT)', 3F10.1./5X, 'TARGET/MISSILE  RANGE  (FT)',  F10.1.20X, 

135  2 'CLOSING  SPEED  tF/SM,  9X.F8.il 

• 136  END 
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0.0179  0. 

0139  0.0107 

0.001 

12 

8 

.02 

13 

0.5 

2850. 

2660. 

2240. 

14 

48 

.1 

15 

0.5 

2205. 

2160. 

2140. 

16 

2060. 

2040. 

2020. 

2005. 

17 

1800. 

1200. 

610. 

420. 

18 

140. 

120. 

100. 

90. 

19 

48. 

41. 

35. 

30. 

20 

21 

16 

2. 

22 

-4.1 

-5.25 

-6.3 

-7.4 

23 

-10.78 

-10.  95 

-11.0 

-11.0 

24 

16 

2. 

25 

0. 

.05 

.18 

.4 

26 

2.59 

3.22 

3.86 

4.73 

27 

16 

2. 

28 

0. 

-.015 

-.07 

-.17 

29 

-1.1 

-1.345 

-1.6 

-1.86 

30 

16 

2. 

31 

0. 

.015 

.025 

.032 

32 

r 145 

.181 

.215 

.255 

33 

16 

.0916667 

34 

.465 

..445 

.43 

.411 

35 

.420 

.558 

.730 

.970 

36 

16  4 

2. 

.366667 

37 

0. 

-.95 

-2.1 

•3.6 

38 

-13.8 

-16.2 

-18.55 

-21.1 

39 

0. 

-.95 

-2.1 

-3.6 

40 

-13.8 

-16.2 

-18.55 

-21.1 

41 

0. 

-.95 

-2.1 

-3,6 

42 

-13.8 

-16.2 

-18.55 

-21.1 

43 

0. 

-.6 

-1.6 

-3.1 

44 

-13.2 

-15.5 

-17.8 

-20.2 

45 

16  4 

2. 

.366667 

46 

0. 

-.03 

-.14 

-.3 

47 

-3,46 

-4.36 

-5.38 

-6.45 

48 

0. 

-.03 

-.14 

-.3 

49 

-3.46 

-4.36 

-5.38 

-6.45 

50 

0. 

-.03 

-.14 

-.3 

51 

-3,46 

-4.36 

-5.38 

-6,45 

52 

0. 

-.05 

-.17 

-.4 

53 

-3.68 

-4.6 

-5.65 

•6*8 

54 

16  4 

2. 

,366667 
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0. 

0. 

0. 

0. 

2. 

6750. 

12. 

60. 

15. 

2.8 

115. 

.64 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0, 

3.3 

6.07 

121. 

19.4 

.241 

13. IT 

20. 

200, 

0.3085 

0.2743  0. 

2420  0.24 

19  0.1841 

0.0668 

0.0348  0. 

0446  0.0359  0.0287 

0.00621 

0.00466  0, 

00347  0.00256  0.00187 

THRUST 

TABLE  1 FOR 

TIME  0 TO 

.14  SECS 

2230. 

2205. 

2180. 

2170. 

THRUST 

TABLE  2 FOR 

TIME  FROM 

.14  SECS 

2125. 

2110. 

2095. 

2075. 

1990. 

1970. 

1950. 

1910. 

320. 

293. 

220. 

190. 

80. 

75. 

63. 

55. 

20. 

10. 

0. 

TABLE 

OF  RATE  DAMPING  OERIVATIVS  CMO 

-8.4 

-9.3 

-9.96 

•10.45 

-11.  0 

-11. 0 

-11. 0 

-11.0 

DELTA 

CN  PRIME 

.69 

1.06 

1.5 

2.01 

4.73 

4,73 

4.73 

4.73 

DELTA 

CY  PRIME 

-.3 

-.47 

-.65 

-.87 

•1.86 

-1.86 

-1.86 

•1.86 

DELTA 

CL  PUNE  LUGS 

.045 

.051 

.08 

.11 

.255 

.255 

.253 

.235 

CXO  PRIME 

.397 

.387 

.379 

.373 

1.2 

1.2 

1.2 

1.2 

CMO  PRIME 

-5.2 

-7.2 

-9.3 

-11.35 

-21.1 

-21.1 

-21.1 

-21.1 

-5.2 

-7.2 

-9.3 

-11.33 

-21.1 

-21.1 

-21.1 

-21.1 

-5.2 

-7.2 

-9.3 

-11.53 

-21.  1 

-21.1 

-21.1 

-21.1 

-4.75 

-6.7 

-8.6 

-10.95 

-20.2 

-20.2 

-20.2 

-20.2 

OELTA 

CM  PRIME 

-.64 

-1.19 

-1.85 

-2.63 

-6,45 

-S  .43 

-6.45 

-6.43 

-.64 

-1.19 

-1.85 

-2.63 

-6.43 

-6.45 

-6.45 

-6.45 

-.64 

-1.19 

-1.83 

-2.63 

-6.45 

-6.45 

-6.43 

•6.45 

-.75 

-1.32 

-2.02 

•2.8 

"6*  0 

-6.8 

-6.8 

-6.8 

CN  PRIME 
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A 

l 

I 

X 

s 

f. 

i 


183 


CARO 

109 

.182 

.1867 

.1895 

.191 

.191 

.191 

.191 

.191 

110 

.143 

.1425 

.145 

.151 

.157 

.162 

.166 

.1735 

111 

.182 

.1867 

.1895 

.191 

.191 

.191 

.191 

.191 

112 

.143 

.1425 

.145 

.151 

.157 

.162 

.166 

.1735 

113 

.182 

.1867 

.1895 

.191 

.191 

.191 

.191 

.191 

114 

.179 

.1795 

.1825 

.188 

.196 

.203 

.210 

.217 

115 

.227 

.231 

.232 

.232 

.232 

.232 

.232 

.232 

116 

.175 

.169 

.171 

.176 

.184 

.192 

.201 

.2095 

117 

.216 

.219 

.22 

.22 

.22 

.22 

.22 

.22 

118 

.175 

.169 

.171 

.176 

.184 

.192 

.201 

.2095 

119 

.216 

.219 

.22 

.22 

.22 

.22 

.22 

.22 

120 

.175 

.169 

.171 

.176 

.184 

.192 

.201 

.2095 

121 

.216 

.219 

.22 

.22 

.22 

.22 

.22 

.22 

122 

.205 

.204 

.205 

.209 

.214 

.22 

.226 

.233 

123 

.24 

.247 

.254 

.262 

.262 

.262 

.262 

.262 

124 

.175 

.169 

.171 

.176 

.184 

.192 

.201 

.2095 

125 

.216 

.219 

.22 

.22 

.22 

.22 

.22 

.22 

126 

.175 

.169 

.171 

.176 

.184 

.192 

,201 

.2095 

127 

.216 

.219 

.22 

.22 

.22 

.22 

.22 

• 22 

123 

.175 

.169 

.171 

.176 

.184 

.192 

.201 

.2095 

129 

.216 

.219 

.22 

.22 

.22 

.22 

.22 

.22 

130 

.205 

.204 

.205 

.209 

.214 

.22 

.226 

.233 

131 

.24 

.247 

.254 

.262 

.262 

.262 

.262 

.262 

132 

16  4 4 

2. 

.366667 

10. 

CM  PRIHE 

PER  DEL7A 

R OP  0 

-.787 

133 

-.69 

-.678 

-.68 

-.69 

-.71 

-.73 

-.76 

134 

-.81 

-.83 

-.84 

-.85 

-.85 

-.85 

-.85 

• *86 

135 

-.69 

-.678 

-.68 

-.69 

-.71 

-.73 

-.76 

-•787 

136 

-.81 

-.83 

-.84 

-.85 

-.85 

-.85 

-.85 

•*  85 

137 

-.69 

-.678 

-.68 

-.69 

-.71 

-.73 

-.76 

-.787 

138 

-.81 

-.83 

-.84 

-.85 

-.85 

-.85 

-.85 

-.85 

139 

-.  76 

-.75 

-.753 

-.771 

-.8 

-.83 

-.857 

— • 886 

140 

-.917 

-.95 

-.98 

-1.01 

-1.01 

-1.01 

-1.01 

-1.01 

141 

-.69 

-.678 

-.68 

-.69 

-.71 

-.73 

-.76 

— • 787 

142 

-.81 

-.83 

-.84 

-.85 

-.85 

-.85 

-.85 

-•85 

143 

-.69 

-.678 

-.68 

-.69 

-.71 

-.73 

-•76 

••787 

144 

-.  81 

-.83 

-.84 

-.85 

-.85 

-.85 

-•85 

••  85 

145 

-.69 

-.678 

-.68 

-.69 

-.71 

-.73 

-.76 

— •787 

1*6 

-.81 

-.83 

-.84 

-.85 

-.85 

-.85 

-•  85 

. -.85 

147 

-.  76 

-.75 

-.753 

-.771 

-.8 

•tr* 

-.857 

— • 886 

148 

-.917 

-.95 

-.98 

-1.01 

-1.01 

•l  L 

-1.01 

149 

-.795 

-.783 

-.786 

-.795 

-.01 

•'4 

-.862 

-•898 

150 

-.922 

-.935 

-.93 

-.9 

-.9 

* 

•*9 

— *9 

151 

-.795 

-.783 

-.786 

-.795 

-.81 

-•  *3 

••862 

-.898 

152 

-.  922 

-.935 

-.93 

-.9 

-.9 

-.9 

-.9 

— •9 

153 

-.795 

-.783 

-.786 

-.795 

-.81 

-.83 

•*062 

— •898 

154 

-.922 

-.935 

-.93 

-.9 

-.9 

-.9 

-.9  ■ 

-•9 

155 

-.865 

-.84 

-.83 

-.848 

-.87 

-.893 

-.92 

-.94 

156 

-.965 

-.994 

-1.02 

-1.05  . 

-1.05 

-1.05 

-1.05 

-1.05 

157 

-.795 

-.783 

-.786 

-.795 

-.81 

-.83 

-.  862 

—•898 

158 

-.  922 

-.935 

-.93 

-.9 

-.9 

-.9 

-.9 

— *9 

159 

-.795 

-.783 

-.786 

-.795 

-.81 

-.83 

-.862 

-.898 

160 

-.922 

-.935 

-.93 

-.9 

-.9 

-.9 

-.9 

—•9 

161 

-.795 

-.783 

-.786 

-.795 

-.81 

-.83 

-.862 

— *898 
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-.922 

-.935 

-.93 

-.9 

-.9 

-.9 

-.9 

-•9 
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i 163 

>.865 

-.84 

-.83 

-.848 

-.87 

-.893 

-.92 

-.94 

< 166 

-.965 

-.994 

-1.02 

-1.05 

-1.05 

-1.05 

-1.05 

-1.05 

) 165 

16  4 4 

2. 

.366667 

10. 

CL  PRIME 

PER  DELTA 

P 

, 166 

.13 

.127 

.125 

.124 

.123 

.122 

.1225 

.124 

i 167 

.124 

.123 

.12 

.116 

.116 

.116 

.116 

.116 

1 168 

.13 

.127 

.125 

.124 

.123 

.122 

.1225 

.124 

169 

.124 

.123 

.12 

.116 

.116 

.116 

.116 

.116 

170 

.13 

.127 

.125 

.124 

.123 

.122 

.1225 

.124 

171 

.124 

.123 

.12 

.116 

.116 

.116 

.116 

.116 

172 

.143 

.14 

.1375 

.135 

.133 

.131 

.13 

.129 

173 

.128 

.1285 

.13 

.132 

.132 

.132 

.132 

.132 

I 174 

.13 

.127 

.125 

.124 

.123 

.122 

.1225 

.124 

175 

.124 

.123 

.12 

.116 

.116 

.116 

.116 

.116 

176 

.13 

.127 

.125 

.124 

.123 

.122 

.1225 

.124 

177 

.124 

.123 

.12 

.116 

.116 

.116 

.116 

.116 

178 

.13 

.127 

.125 

.124 

.123 

.122 

.1225 

.124 

179 

.124 

.123 

.12 

.116 

.116 

.116 

.116 

.116 

180 

.143 

.14 

.1375 

.135 

.133 

.131 

.13 

.129 

181 

.128 

.1285 

.13 

.132 

.132 

.132 

.132 

.132 

182 

.142 

.1455 

.146 

.144 

.14 

.138 

.137 

.136 

183 

.1355 

.1345 

.134 

.134 

.134 

.134 

.134 

.134 

184 

.142 

.1455 

.146 

.144 

.14 

.138 

.137 

.136 

185 

.1355 

.1345 

.134 

.134 

.134 

.134 

.134 

.134 

186 

.142 

.1455 

.146 

.144 

.14 

.138 

.137 

.136 

187 

.1355 

.1345 

.134 

.134 

.134 

.134 

.134 

.134 

188 

.148 

.146 

.144 

.142 

.14 

.139 

U38 

.137 

189 

.136 

.136 

.1355 

.135 

.135 

.135 

.135 

.135 

190  ■ 

.142 

.1455 

.146 

.144 

.14 

.138 

.137 

.136 

191 

.1355 

.1345 

.134 

.134 

.134 

.134 

.134 

.134 

192 

.142 

.1455 

.146 

.144 

.14 

.138 

.137 

.136 

193 

.1355 

.1345 

.134 

.134 

.134 

.134 

.134 

.134 

194 

.142 

.1455 

.146 

.144 

.14 

.138 

.137 

.136 

195 

.1355 

.1345 

.134 

.134 

.134 

.134 

.134 

.134 

196 

.148 

.146 

.144 

.142 

.14 

.139 

.138 

.137 

197 

.136 

.136 

.1355 

.135 

.135 

.135 

.135 

.135 

198  999 

199  1 

200  TOTAL  SYSTEM  CHECKOUT  RUN  FOR  DR  J.  ROWLAND.  7 APRIL  1972. 

201  .0025  15.0  AO 


